/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / think-c / tc-receive.elc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 74 63 2d 72 65 63 | 65 69 76 65 2e 65 6c 63 |..tc-rec|eive.elc|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 00 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 2f 90 00 | 00 01 3c a9 9d 55 9a a9 |...../..|..<..U..|
|00000060| b5 64 60 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.d`.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d0 b8 00 00 |........|........|
|00000080| 0a 28 63 3a 64 65 66 73 | 74 72 75 63 74 20 74 63 |.(c:defs|truct tc|
|00000090| 3a 73 74 72 75 63 74 2d | 70 6f 73 69 74 69 6f 6e |:struct-|position|
|000000a0| 20 28 28 73 68 6f 72 74 | 20 73 68 6f 77 4d 73 67 | ((short| showMsg|
|000000b0| 29 20 28 73 68 6f 72 74 | 20 6c 69 6e 65 29 20 28 |) (short| line) (|
|000000c0| 6c 6f 6e 67 20 73 74 61 | 72 74 29 20 28 6c 6f 6e |long sta|rt) (lon|
|000000d0| 67 20 65 6e 64 29 20 28 | 6c 6f 6e 67 20 65 72 72 |g end) (|long err|
|000000e0| 4d 73 67 29 20 28 6c 6f | 6e 67 20 66 69 6c 65 4d |Msg) (lo|ng fileM|
|000000f0| 6f 64 44 61 74 65 29 29 | 29 0a 0a 28 64 65 66 75 |odDate))|)..(defu|
|00000100| 6e 20 74 63 3a 70 61 72 | 73 65 2d 70 6f 73 69 74 |n tc:par|se-posit|
|00000110| 69 6f 6e 2d 72 65 63 6f | 72 64 20 28 65 76 65 6e |ion-reco|rd (even|
|00000120| 74 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |t) (byte|-code ".|
|00000130| 85 07 00 c1 c2 21 88 c3 | c4 c5 8f 87 22 20 5b 74 |.....!..|...." [t|
|00000140| 63 3a 64 65 62 75 67 2d | 74 72 61 63 65 20 44 65 |c:debug-|trace De|
|00000150| 62 75 67 53 74 72 20 22 | 45 6d 61 63 73 20 54 50 |bugStr "|Emacs TP|
|00000160| 4d 20 63 6f 64 65 20 67 | 6f 74 20 4f 44 4f 43 20 |M code g|ot ODOC |
|00000170| 65 76 65 6e 74 22 20 65 | 72 72 6d 73 67 20 28 62 |event" e|rrmsg (b|
|00000180| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 8d 87 22 20 |yte-code| "...." |
|00000190| 5b 70 61 6e 69 63 20 28 | 62 79 74 65 2d 63 6f 64 |[panic (|byte-cod|
|000001a0| 65 20 22 cf d0 d1 5c 22 | 18 cf d2 d3 21 d1 5c 22 |e "...\"|....!.\"|
|000001b0| 19 cf d0 d1 5c 22 1a d4 | d5 0c 0d 0e 06 08 09 09 |....\"..|........|
|000001c0| 47 0a 26 07 21 1b d6 d3 | 09 c7 23 1e 07 d6 d3 09 |G.&.!...|..#.....|
|000001d0| c8 23 54 1e 08 d6 d3 09 | c9 23 54 1e 09 d6 d3 09 |.#T.....|.#T.....|
|000001e0| ca 23 54 1e 0a d6 d3 09 | d7 23 1e 0b cd 89 16 0c |.#T.....|.#......|
|000001f0| 88 0e 08 d8 59 83 59 00 | d9 0e 08 21 82 8b 00 0e |....Y.Y.|...!....|
|00000200| 09 d8 59 85 64 00 0e 0a | d8 59 85 8b 00 0e 09 62 |..Y.d...|.Y.....b|
|00000210| 88 da 0e 0a 21 88 db 20 | 3f 85 8b 00 dc d8 21 88 |....!.. |?.....!.|
|00000220| 0e 0a 62 88 db 20 3f 85 | 87 00 dc d8 21 88 0e 09 |..b.. ?.|....!...|
|00000230| 62 88 dd 0e 07 21 3f 85 | 98 00 0e 08 d1 59 85 b6 |b....!?.|.....Y..|
|00000240| 00 de 0e 0b 21 88 df 0e | 0b 21 1e 0e e0 e1 e2 0e |....!...|.!......|
|00000250| 0e d1 e3 23 50 21 29 88 | e4 0e 0b 21 88 e5 20 2e |...#P!).|...!.. .|
|00000260| 09 87 22 20 5b 72 65 74 | 75 72 6e 65 64 54 79 70 |.." [ret|urnedTyp|
|00000270| 65 20 64 61 74 61 20 61 | 63 74 75 61 6c 53 69 7a |e data a|ctualSiz|
|00000280| 65 20 6a 75 6e 6b 20 65 | 76 65 6e 74 20 6b 65 79 |e junk e|vent key|
|00000290| 41 45 50 6f 73 69 74 69 | 6f 6e 20 74 79 70 65 43 |AEPositi|on typeC|
|000002a0| 68 61 72 20 73 68 6f 77 | 4d 73 67 20 6c 69 6e 65 |har show|Msg line|
|000002b0| 20 73 74 61 72 74 20 65 | 6e 64 20 65 72 72 4d 73 | start e|nd errMs|
|000002c0| 67 2d 68 61 6e 64 6c 65 | 20 74 63 3a 6f 70 65 6e |g-handle| tc:open|
|000002d0| 65 64 2d 66 72 6f 6d 2d | 54 50 4d 20 74 20 65 72 |ed-from-|TPM t er|
|000002e0| 72 4d 73 67 2d 70 74 72 | 20 6d 61 6b 65 2d 73 74 |rMsg-ptr| make-st|
|000002f0| 72 69 6e 67 20 34 20 30 | 20 63 3a 73 69 7a 65 6f |ring 4 0| c:sizeo|
|00000300| 66 20 74 63 3a 73 74 72 | 75 63 74 2d 70 6f 73 69 |f tc:str|uct-posi|
|00000310| 74 69 6f 6e 20 74 68 72 | 6f 77 2d 65 72 72 20 41 |tion thr|ow-err A|
|00000320| 45 47 65 74 50 61 72 61 | 6d 50 74 72 20 63 3a 73 |EGetPara|mPtr c:s|
|00000330| 6c 6f 74 72 65 66 20 65 | 72 72 4d 73 67 20 31 20 |lotref e|rrMsg 1 |
|00000340| 67 6f 74 6f 2d 6c 69 6e | 65 20 73 65 74 2d 6d 61 |goto-lin|e set-ma|
|00000350| 72 6b 20 69 6e 70 75 74 | 2d 70 65 6e 64 69 6e 67 |rk input|-pending|
|00000360| 2d 70 20 73 69 74 2d 66 | 6f 72 20 7a 65 72 6f 70 |-p sit-f|or zerop|
|00000370| 20 48 4c 6f 63 6b 20 64 | 65 72 65 66 20 6d 65 73 | HLock d|eref mes|
|00000380| 73 61 67 65 20 22 54 50 | 4d 20 6d 65 73 73 61 67 |sage "TP|M messag|
|00000390| 65 3a 20 22 20 65 78 74 | 72 61 63 74 2d 69 6e 74 |e: " ext|ract-int|
|000003a0| 65 72 6e 61 6c 20 70 61 | 73 63 61 6c 2d 73 74 72 |ernal pa|scal-str|
|000003b0| 69 6e 67 20 48 55 6e 6c | 6f 63 6b 20 62 72 69 6e |ing HUnl|ock brin|
|000003c0| 67 2d 65 6d 61 63 73 2d | 74 6f 2d 74 68 65 2d 66 |g-emacs-|to-the-f|
|000003d0| 72 6f 6e 74 5d 20 32 36 | 29 5d 20 32 29 20 28 28 |ront] 26|)] 2) ((|
|000003e0| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|000003f0| 20 22 08 85 07 00 c2 c3 | 21 88 09 87 22 20 5b 74 | "......|!..." [t|
|00000400| 63 3a 64 65 62 75 67 2d | 66 61 69 6c 75 72 65 73 |c:debug-|failures|
|00000410| 20 65 72 72 41 45 45 76 | 65 6e 74 4e 6f 74 48 61 | errAEEv|entNotHa|
|00000420| 6e 64 6c 65 64 20 44 65 | 62 75 67 53 74 72 20 22 |ndled De|bugStr "|
|00000430| 43 6f 75 6c 64 6e 27 74 | 20 63 6f 6d 70 6c 65 74 |Couldn't| complet|
|00000440| 65 20 4f 44 4f 43 22 5d | 20 32 29 29 29 5d 20 34 |e ODOC"]| 2)))] 4|
|00000450| 29 29 0a 0a 28 41 45 49 | 6e 73 74 61 6c 6c 45 76 |))..(AEI|nstallEv|
|00000460| 65 6e 74 48 61 6e 64 6c | 65 72 20 22 4b 41 48 4c |entHandl|er "KAHL|
|00000470| 22 20 22 4d 4f 44 20 22 | 20 28 71 75 6f 74 65 20 |" "MOD "| (quote |
|00000480| 74 63 3a 64 6f 2d 6d 6f | 64 69 66 69 65 64 2d 65 |tc:do-mo|dified-e|
|00000490| 76 65 6e 74 29 20 30 20 | 30 29 0a 0a 28 63 3a 64 |vent) 0 |0)..(c:d|
|000004a0| 65 66 73 74 72 75 63 74 | 20 74 63 3a 73 74 72 75 |efstruct| tc:stru|
|000004b0| 63 74 2d 6d 6f 64 69 66 | 69 65 64 20 28 28 46 53 |ct-modif|ied ((FS|
|000004c0| 53 70 65 63 20 66 73 73 | 29 20 28 6c 6f 6e 67 20 |Spec fss|) (long |
|000004d0| 77 68 65 6e 29 20 28 73 | 68 6f 72 74 20 73 61 76 |when) (s|hort sav|
|000004e0| 65 64 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 74 63 |ed)))..(|defun tc|
|000004f0| 3a 64 6f 2d 6d 6f 64 69 | 66 69 65 64 2d 65 76 65 |:do-modi|fied-eve|
|00000500| 6e 74 20 28 65 76 65 6e | 74 20 72 65 70 6c 79 20 |nt (even|t reply |
|00000510| 72 65 66 43 6f 6e 29 20 | 28 62 79 74 65 2d 63 6f |refCon) |(byte-co|
|00000520| 64 65 20 22 08 85 07 00 | c1 c2 21 88 c3 c4 c5 8f |de "....|..!.....|
|00000530| 87 22 20 5b 74 63 3a 64 | 65 62 75 67 2d 74 72 61 |." [tc:d|ebug-tra|
|00000540| 63 65 20 44 65 62 75 67 | 53 74 72 20 22 45 6d 61 |ce Debug|Str "Ema|
|00000550| 63 73 20 54 50 4d 20 63 | 6f 64 65 20 67 6f 74 20 |cs TPM c|ode got |
|00000560| 4d 4f 44 20 65 76 65 6e | 74 22 20 65 72 72 6d 73 |MOD even|t" errms|
|00000570| 67 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |g (byte-|code "..|
|00000580| 8d 87 22 20 5b 70 61 6e | 69 63 20 28 62 79 74 65 |.." [pan|ic (byte|
|00000590| 2d 63 6f 64 65 20 22 cc | 20 18 cd 0a ce 5c 22 19 |-code ".| ....\".|
|000005a0| cf 1b cf 1c cd d0 d1 21 | ce 5c 22 1d d2 d3 ce ce |.......!|.\".....|
|000005b0| ce 09 24 21 88 cd d4 ce | 5c 22 1e 06 d5 0e 06 21 |..$!....|\".....!|
|000005c0| 88 d6 0e 06 ce d7 23 89 | 13 29 88 08 85 83 00 d8 |......#.|.)......|
|000005d0| 08 40 38 85 40 00 d9 08 | 40 38 85 7a 00 d2 da d8 |.@8.@...|@8.z....|
|000005e0| 08 40 38 21 1e 07 0e 07 | 40 89 14 88 0e 07 41 29 |.@8!....|@.....A)|
|000005f0| 21 88 db d1 0d dc 0c 24 | 88 db d1 0d dd 0b de 5a |!......$|.......Z|
|00000600| 24 88 db d1 0d df ce 24 | 88 d2 e0 09 ce 0e 08 0d |$......$|........|
|00000610| 0d 47 25 21 88 08 41 89 | 10 88 82 31 00 88 d2 e1 |.G%!..A.|...1....|
|00000620| 0e 09 0e 0a 09 23 21 88 | 0e 0b 2d 87 22 20 5b 66 |.....#!.|..-." [f|
|00000630| 69 6c 65 2d 6c 69 73 74 | 20 61 65 2d 6c 69 73 74 |ile-list| ae-list|
|00000640| 20 73 69 7a 65 6f 66 2d | 41 45 44 65 73 63 4c 69 | sizeof-|AEDescLi|
|00000650| 73 74 20 6e 6f 77 20 73 | 70 65 63 20 6d 6f 64 69 |st now s|pec modi|
|00000660| 66 69 65 64 2d 72 65 63 | 6f 72 64 20 73 20 74 65 |fied-rec|ord s te|
|00000670| 6d 70 20 74 79 70 65 43 | 68 61 72 20 72 65 70 6c |mp typeC|har repl|
|00000680| 79 20 6b 65 79 44 69 72 | 65 63 74 4f 62 6a 65 63 |y keyDir|ectObjec|
|00000690| 74 20 6e 6f 45 72 72 20 | 74 63 3a 72 65 6c 65 76 |t noErr |tc:relev|
|000006a0| 61 6e 74 2d 62 75 66 66 | 65 72 73 20 6d 61 6b 65 |ant-buff|ers make|
|000006b0| 2d 73 74 72 69 6e 67 20 | 30 20 6e 69 6c 20 63 3a |-string |0 nil c:|
|000006c0| 73 69 7a 65 6f 66 20 74 | 63 3a 73 74 72 75 63 74 |sizeof t|c:struct|
|000006d0| 2d 6d 6f 64 69 66 69 65 | 64 20 74 68 72 6f 77 2d |-modifie|d throw-|
|000006e0| 65 72 72 20 41 45 43 72 | 65 61 74 65 4c 69 73 74 |err AECr|eateList|
|000006f0| 20 34 20 47 65 74 44 61 | 74 65 54 69 6d 65 2d 69 | 4 GetDa|teTime-i|
|00000700| 6e 74 65 72 6e 61 6c 20 | 65 78 74 72 61 63 74 2d |nternal |extract-|
|00000710| 69 6e 74 65 72 6e 61 6c | 20 6c 6f 6e 67 20 31 20 |internal| long 1 |
|00000720| 32 20 75 6e 69 78 2d 66 | 69 6c 65 6e 61 6d 65 2d |2 unix-f|ilename-|
|00000730| 74 6f 2d 46 53 53 70 65 | 63 2d 69 6e 74 65 72 6e |to-FSSpe|c-intern|
|00000740| 61 6c 20 63 3a 73 6c 6f | 74 73 65 74 20 66 73 73 |al c:slo|tset fss|
|00000750| 20 77 68 65 6e 20 35 20 | 73 61 76 65 64 20 41 45 | when 5 |saved AE|
|00000760| 50 75 74 50 74 72 20 41 | 45 50 75 74 50 61 72 61 |PutPtr A|EPutPara|
|00000770| 6d 44 65 73 63 5d 20 32 | 32 29 5d 20 32 29 20 28 |mDesc] 2|2)] 2) (|
|00000780| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00000790| 65 20 22 08 85 07 00 c2 | c3 21 88 09 87 22 20 5b |e ".....|.!..." [|
|000007a0| 74 63 3a 64 65 62 75 67 | 2d 66 61 69 6c 75 72 65 |tc:debug|-failure|
|000007b0| 73 20 65 72 72 41 45 45 | 76 65 6e 74 4e 6f 74 48 |s errAEE|ventNotH|
|000007c0| 61 6e 64 6c 65 64 20 44 | 65 62 75 67 53 74 72 20 |andled D|ebugStr |
|000007d0| 22 43 6f 75 6c 64 6e 27 | 74 20 63 6f 6d 70 6c 65 |"Couldn'|t comple|
|000007e0| 74 65 20 4d 4f 44 22 5d | 20 32 29 29 29 5d 20 34 |te MOD"]| 2)))] 4|
|000007f0| 29 29 0a 0a 28 41 45 49 | 6e 73 74 61 6c 6c 45 76 |))..(AEI|nstallEv|
|00000800| 65 6e 74 48 61 6e 64 6c | 65 72 20 22 4b 41 48 4c |entHandl|er "KAHL|
|00000810| 22 20 22 47 54 54 58 22 | 20 28 71 75 6f 74 65 20 |" "GTTX"| (quote |
|00000820| 74 63 3a 64 6f 2d 67 74 | 74 78 2d 65 76 65 6e 74 |tc:do-gt|tx-event|
|00000830| 29 20 30 20 30 29 0a 0a | 28 63 3a 64 65 66 73 74 |) 0 0)..|(c:defst|
|00000840| 72 75 63 74 20 74 63 3a | 73 74 72 75 63 74 2d 67 |ruct tc:|struct-g|
|00000850| 74 74 78 20 28 28 46 53 | 53 70 65 63 20 66 73 73 |ttx ((FS|Spec fss|
|00000860| 29 20 28 6c 6f 6e 67 20 | 74 65 78 74 48 29 20 28 |) (long |textH) (|
|00000870| 6c 6f 6e 67 20 66 74 70 | 29 20 28 6c 6f 6e 67 20 |long ftp|) (long |
|00000880| 6d 6f 64 69 66 69 65 64 | 29 29 29 0a 0a 28 63 3a |modified|)))..(c:|
|00000890| 64 65 66 73 74 72 75 63 | 74 20 74 63 3a 73 74 72 |defstruc|t tc:str|
|000008a0| 75 63 74 2d 46 54 52 65 | 63 20 28 28 73 68 6f 72 |uct-FTRe|c ((shor|
|000008b0| 74 20 66 6f 6e 74 4e 75 | 6d 29 20 28 73 68 6f 72 |t fontNu|m) (shor|
|000008c0| 74 20 66 6f 6e 74 53 69 | 7a 65 29 20 28 73 68 6f |t fontSi|ze) (sho|
|000008d0| 72 74 20 73 70 61 63 65 | 57 69 64 74 68 29 20 28 |rt space|Width) (|
|000008e0| 73 68 6f 72 74 20 74 61 | 62 53 74 6f 70 73 29 29 |short ta|bStops))|
|000008f0| 29 0a 0a 28 64 65 66 75 | 6e 20 74 63 3a 64 6f 2d |)..(defu|n tc:do-|
|00000900| 67 74 74 78 2d 65 76 65 | 6e 74 20 28 65 76 65 6e |gttx-eve|nt (even|
|00000910| 74 20 72 65 70 6c 79 20 | 72 65 66 43 6f 6e 29 20 |t reply |refCon) |
|00000920| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 85 07 00 |(byte-co|de "....|
|00000930| c1 c2 21 88 c3 c4 c5 8f | 87 22 20 5b 74 63 3a 64 |..!.....|." [tc:d|
|00000940| 65 62 75 67 2d 74 72 61 | 63 65 20 44 65 62 75 67 |ebug-tra|ce Debug|
|00000950| 53 74 72 20 22 45 6d 61 | 63 73 20 54 50 4d 20 63 |Str "Ema|cs TPM c|
|00000960| 6f 64 65 20 67 6f 74 20 | 47 54 54 58 20 65 76 65 |ode got |GTTX eve|
|00000970| 6e 74 22 20 65 72 72 6d | 73 67 20 28 62 79 74 65 |nt" errm|sg (byte|
|00000980| 2d 63 6f 64 65 20 22 c0 | c1 8d 87 22 20 5b 70 61 |-code ".|..." [pa|
|00000990| 6e 69 63 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nic (byt|e-code "|
|000009a0| d6 d7 d8 5c 22 18 d6 d7 | d8 5c 22 19 d6 d9 da 21 |...\"...|.\"....!|
|000009b0| d8 5c 22 1a db 1b dc dd | 0d 0e 06 0e 07 08 0a d9 |.\".....|........|
|000009c0| da 21 09 26 07 21 1c de | da 0a df 23 1e 08 de da |.!.&.!..|...#....|
|000009d0| 0a c9 23 1e 09 de da 0a | ca 23 1e 0a de da 0a cb |..#.....|.#......|
|000009e0| 23 1e 0b e0 0e 08 21 1e | 0c e1 0e 0c 21 85 52 00 |#.....!.|....!.R.|
|000009f0| e2 e3 0e 0c 5c 22 1e 0d | 70 1e 0e e4 0e 0c 21 1e |....\"..|p.....!.|
|00000a00| 0f 0e 0f 3f 85 68 00 e2 | e3 0e 10 5c 22 88 0e 0f |...?.h..|...\"...|
|00000a10| 71 88 e5 0e 09 e6 20 5c | 22 88 e7 e8 20 21 3f 85 |q..... \|"... !?.|
|00000a20| 81 00 e2 e3 e8 20 5c 22 | 88 0e 11 85 8f 00 e9 ea |..... \"|........|
|00000a30| e6 20 eb 0e 09 24 88 ec | 65 64 ed ee d2 25 88 ef |. ...$..|ed...%..|
|00000a40| 0e 09 21 88 f0 f1 20 f2 | f3 0e 09 21 21 e6 20 23 |..!... .|...!!. #|
|00000a50| 88 f4 0e 09 21 88 ec 65 | 64 ee ed d2 25 88 e7 0e |....!..e|d...%...|
|00000a60| 0a 21 3f 85 07 01 0e 11 | 85 c7 00 e9 f5 21 88 f6 |.!?.....|.....!..|
|00000a70| 0e 0f 21 88 e7 f7 20 21 | 3f 85 dd 00 f8 f7 20 21 |..!... !|?..... !|
|00000a80| 88 f9 d8 21 88 fa 20 88 | fb fc 0e 0a fd d7 24 88 |...!.. .|......$.|
|00000a90| fb fc 0e 0a fe ff 24 88 | fb fc 0e 0a 81 40 00 81 |......$.|.....@..|
|00000aa0| 41 00 24 88 fb fc 0e 0a | 81 42 00 0e 13 24 88 d6 |A.$.....|.B...$..|
|00000ab0| d7 d8 5c 22 1e 14 81 43 | 00 0e 14 21 88 81 44 00 |..\"...C|...!..D.|
|00000ac0| 0e 14 d8 81 45 00 23 89 | 13 29 88 81 46 00 0e 0b |....E.#.|.)..F...|
|00000ad0| d8 81 45 00 81 47 00 20 | 83 3b 01 0b 81 48 00 5a |..E..G. |.;...H.Z|
|00000ae0| 82 3c 01 d8 24 88 0e 0e | 71 88 0e 15 2e 0d 87 22 |.<..$...|q......"|
|00000af0| 20 5b 72 65 74 75 72 6e | 65 64 54 79 70 65 20 61 | [return|edType a|
|00000b00| 63 74 75 61 6c 53 69 7a | 65 20 67 74 74 78 2d 6d |ctualSiz|e gttx-m|
|00000b10| 73 67 20 6e 6f 77 20 6a | 75 6e 6b 31 20 65 76 65 |sg now j|unk1 eve|
|00000b20| 6e 74 20 6b 65 79 44 69 | 72 65 63 74 4f 62 6a 65 |nt keyDi|rectObje|
|00000b30| 63 74 20 74 79 70 65 43 | 68 61 72 20 73 70 65 63 |ct typeC|har spec|
|00000b40| 20 74 65 78 74 48 20 66 | 74 70 20 6d 6f 64 69 66 | textH f|tp modif|
|00000b50| 69 65 64 20 66 69 6c 65 | 6e 61 6d 65 20 6a 75 6e |ied file|name jun|
|00000b60| 6b 32 20 6f 6c 64 2d 62 | 75 66 66 65 72 20 62 75 |k2 old-b|uffer bu|
|00000b70| 66 66 65 72 20 65 72 72 | 41 45 45 76 65 6e 74 4e |ffer err|AEEventN|
|00000b80| 6f 74 48 61 6e 64 6c 65 | 64 20 74 63 3a 64 65 62 |otHandle|d tc:deb|
|00000b90| 75 67 2d 74 72 61 63 65 | 20 74 20 74 61 62 2d 77 |ug-trace| t tab-w|
|00000ba0| 69 64 74 68 20 73 20 6e | 6f 45 72 72 20 6d 61 6b |idth s n|oErr mak|
|00000bb0| 65 2d 73 74 72 69 6e 67 | 20 34 20 30 20 63 3a 73 |e-string| 4 0 c:s|
|00000bc0| 69 7a 65 6f 66 20 74 63 | 3a 73 74 72 75 63 74 2d |izeof tc|:struct-|
|00000bd0| 67 74 74 78 20 6e 69 6c | 20 74 68 72 6f 77 2d 65 |gttx nil| throw-e|
|00000be0| 72 72 20 41 45 47 65 74 | 50 61 72 61 6d 50 74 72 |rr AEGet|ParamPtr|
|00000bf0| 20 63 3a 73 6c 6f 74 72 | 65 66 20 66 73 73 20 46 | c:slotr|ef fss F|
|00000c00| 53 53 70 65 63 2d 74 6f | 2d 75 6e 69 78 2d 66 69 |SSpec-to|-unix-fi|
|00000c10| 6c 65 6e 61 6d 65 20 69 | 6e 74 65 67 65 72 70 20 |lename i|ntegerp |
|00000c20| 74 68 72 6f 77 20 70 61 | 6e 69 63 20 67 65 74 2d |throw pa|nic get-|
|00000c30| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 53 65 74 48 |file-buf|fer SetH|
|00000c40| 61 6e 64 6c 65 53 69 7a | 65 20 62 75 66 66 65 72 |andleSiz|e buffer|
|00000c50| 2d 73 69 7a 65 20 7a 65 | 72 6f 70 20 4d 65 6d 45 |-size ze|rop MemE|
|00000c60| 72 72 6f 72 20 44 65 62 | 75 67 53 74 72 20 22 4d |rror Deb|ugStr "M|
|00000c70| 6f 76 69 6e 67 20 22 20 | 22 20 62 79 74 65 73 20 |oving " |" bytes |
|00000c80| 74 6f 20 22 20 73 75 62 | 73 74 2d 63 68 61 72 2d |to " sub|st-char-|
|00000c90| 69 6e 2d 72 65 67 69 6f | 6e 20 31 30 20 31 33 20 |in-regio|n 10 13 |
|00000ca0| 48 4c 6f 63 6b 20 42 6c | 6f 63 6b 4d 6f 76 65 20 |HLock Bl|ockMove |
|00000cb0| 62 75 66 66 65 72 2d 73 | 74 72 69 6e 67 20 53 74 |buffer-s|tring St|
|00000cc0| 72 69 70 41 64 64 72 65 | 73 73 20 64 65 72 65 66 |ripAddre|ss deref|
|00000cd0| 20 48 55 6e 6c 6f 63 6b | 20 22 46 69 6c 6c 69 6e | HUnlock| "Fillin|
|00000ce0| 67 20 69 6e 20 66 74 70 | 20 72 65 63 6f 72 64 22 |g in ftp| record"|
|00000cf0| 20 74 63 3a 73 65 6e 64 | 2d 6d 6b 75 70 20 74 63 | tc:send|-mkup tc|
|00000d00| 3a 6c 69 6e 65 4f 66 66 | 73 65 74 73 20 44 69 73 |:lineOff|sets Dis|
|00000d10| 70 6f 73 48 61 6e 64 6c | 65 20 73 65 74 66 2d 74 |posHandl|e setf-t|
|00000d20| 63 3a 6c 69 6e 65 4f 66 | 66 73 65 74 73 20 72 65 |c:lineOf|fsets re|
|00000d30| 6d 61 6b 65 2d 6c 69 6e | 65 4f 66 66 73 65 74 73 |make-lin|eOffsets|
|00000d40| 20 63 3a 73 6c 6f 74 73 | 65 74 20 74 63 3a 73 74 | c:slots|et tc:st|
|00000d50| 72 75 63 74 2d 46 54 52 | 65 63 20 66 6f 6e 74 4e |ruct-FTR|ec fontN|
|00000d60| 75 6d 20 66 6f 6e 74 53 | 69 7a 65 20 39 20 73 70 |um fontS|ize 9 sp|
|00000d70| 61 63 65 57 69 64 74 68 | 20 36 20 74 61 62 53 74 |aceWidth| 6 tabSt|
|00000d80| 6f 70 73 20 47 65 74 44 | 61 74 65 54 69 6d 65 2d |ops GetD|ateTime-|
|00000d90| 69 6e 74 65 72 6e 61 6c | 20 65 78 74 72 61 63 74 |internal| extract|
|00000da0| 2d 69 6e 74 65 72 6e 61 | 6c 20 6c 6f 6e 67 20 65 |-interna|l long e|
|00000db0| 6e 63 6f 64 65 2d 69 6e | 74 65 72 6e 61 6c 20 62 |ncode-in|ternal b|
|00000dc0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00000dd0| 20 35 5d 20 35 36 29 5d | 20 32 29 20 28 28 65 72 | 5] 56)]| 2) ((er|
|00000de0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00000df0| 08 85 07 00 c2 c3 21 88 | 09 87 22 20 5b 74 63 3a |......!.|.." [tc:|
|00000e00| 64 65 62 75 67 2d 66 61 | 69 6c 75 72 65 73 20 65 |debug-fa|ilures e|
|00000e10| 72 72 41 45 45 76 65 6e | 74 4e 6f 74 48 61 6e 64 |rrAEEven|tNotHand|
|00000e20| 6c 65 64 20 44 65 62 75 | 67 53 74 72 20 22 43 6f |led Debu|gStr "Co|
|00000e30| 75 6c 64 6e 27 74 20 63 | 6f 6d 70 6c 65 74 65 20 |uldn't c|omplete |
|00000e40| 47 54 54 58 22 5d 20 32 | 29 29 29 5d 20 34 29 29 |GTTX"] 2|)))] 4))|
|00000e50| 0a 0a 28 63 3a 64 65 66 | 73 74 72 75 63 74 20 74 |..(c:def|struct t|
|00000e60| 63 3a 73 74 72 75 63 74 | 2d 66 73 73 50 6c 75 73 |c:struct|-fssPlus|
|00000e70| 20 28 28 46 53 53 70 65 | 63 20 66 73 73 29 20 28 | ((FSSpe|c fss) (|
|00000e80| 6c 6f 6e 67 20 67 65 74 | 53 74 61 74 65 4d 73 67 |long get|StateMsg|
|00000e90| 29 29 29 0a 0a 28 63 3a | 64 65 66 73 74 72 75 63 |)))..(c:|defstruc|
|00000ea0| 74 20 74 63 3a 73 74 72 | 75 63 74 2d 67 65 74 53 |t tc:str|uct-getS|
|00000eb0| 74 61 74 65 4d 73 67 20 | 28 28 73 68 6f 72 74 20 |tateMsg |((short |
|00000ec0| 66 69 6c 65 4e 75 6d 29 | 20 28 28 61 72 72 61 79 |fileNum)| ((array|
|00000ed0| 20 63 68 61 72 20 34 29 | 20 72 73 72 63 54 79 70 | char 4)| rsrcTyp|
|00000ee0| 65 29 20 28 73 68 6f 72 | 74 20 72 73 72 63 49 44 |e) (shor|t rsrcID|
|00000ef0| 29 20 28 6c 6f 6e 67 20 | 72 73 72 63 48 29 29 29 |) (long |rsrcH)))|
|00000f00| 0a 0a 28 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e |..(AEIns|tallEven|
|00000f10| 74 48 61 6e 64 6c 65 72 | 20 22 4b 41 48 4c 22 20 |tHandler| "KAHL" |
|00000f20| 22 47 54 44 53 22 20 28 | 71 75 6f 74 65 20 74 63 |"GTDS" (|quote tc|
|00000f30| 3a 64 6f 2d 67 74 64 73 | 2d 65 76 65 6e 74 29 20 |:do-gtds|-event) |
|00000f40| 30 20 30 29 0a 0a 28 64 | 65 66 75 6e 20 74 63 3a |0 0)..(d|efun tc:|
|00000f50| 64 6f 2d 67 74 64 73 2d | 65 76 65 6e 74 20 28 65 |do-gtds-|event (e|
|00000f60| 76 65 6e 74 20 72 65 70 | 6c 79 20 72 65 66 43 6f |vent rep|ly refCo|
|00000f70| 6e 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |n) (byte|-code ".|
|00000f80| 85 07 00 c1 c2 21 88 c3 | c4 c5 8f 87 22 20 5b 74 |.....!..|...." [t|
|00000f90| 63 3a 64 65 62 75 67 2d | 74 72 61 63 65 20 44 65 |c:debug-|trace De|
|00000fa0| 62 75 67 53 74 72 20 22 | 45 6d 61 63 73 20 54 50 |bugStr "|Emacs TP|
|00000fb0| 4d 20 63 6f 64 65 20 67 | 6f 74 20 47 54 44 53 20 |M code g|ot GTDS |
|00000fc0| 65 76 65 6e 74 22 20 65 | 72 72 6d 73 67 20 28 62 |event" e|rrmsg (b|
|00000fd0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 8d 87 22 20 |yte-code| "...." |
|00000fe0| 5b 70 61 6e 69 63 20 28 | 62 79 74 65 2d 63 6f 64 |[panic (|byte-cod|
|00000ff0| 65 20 22 d4 d5 d6 5c 22 | 18 d4 d7 d8 21 d6 5c 22 |e "...\"|....!.\"|
|00001000| 19 d4 d5 d6 5c 22 1a d9 | da 0c 0d 0e 06 08 09 09 |....\"..|........|
|00001010| 47 0a 26 07 21 1b db d8 | 09 dc 23 1e 07 db d8 09 |G.&.!...|..#.....|
|00001020| dd 23 1e 08 db de 0e 08 | c9 23 1e 09 db de 0e 08 |.#......|.#......|
|00001030| ca 23 1e 0a df 0e 07 21 | 1e 0b 70 1e 0c e0 0e 0b |.#.....!|..p.....|
|00001040| 21 1e 0d 0e 0d 3f 85 58 | 00 e1 e2 0e 0e 5c 22 88 |!....?.X|.....\".|
|00001050| 0e 0f 85 66 00 e3 e4 0e | 09 e5 0e 0a 24 88 0e 0d |...f....|....$...|
|00001060| 71 88 0e 10 3f 85 76 00 | e1 e2 0e 0e 5c 22 88 e6 |q...?.v.|....\"..|
|00001070| 0e 09 e7 5c 22 83 8a 00 | e8 e9 20 ea 20 eb 20 23 |...\"...|.. . . #|
|00001080| 82 a2 00 e6 0e 09 ec 5c | 22 83 9d 00 e8 ed 20 ee |.......\|"..... .|
|00001090| 20 ef 20 23 82 a2 00 e1 | e2 0e 0e 5c 22 1e 11 0e | . #....|...\"...|
|000010a0| 0c 71 88 f0 de 0e 08 f1 | 0e 11 24 88 0e 13 29 2e |.q......|..$...).|
|000010b0| 0b 87 22 20 5b 72 65 73 | 75 6c 74 54 79 70 65 20 |.." [res|ultType |
|000010c0| 64 61 74 61 20 61 63 74 | 75 61 6c 53 69 7a 65 20 |data act|ualSize |
|000010d0| 6a 75 6e 6b 20 65 76 65 | 6e 74 20 6b 65 79 44 69 |junk eve|nt keyDi|
|000010e0| 72 65 63 74 4f 62 6a 65 | 63 74 20 74 79 70 65 43 |rectObje|ct typeC|
|000010f0| 68 61 72 20 73 70 65 63 | 20 6d 73 67 20 72 73 72 |har spec| msg rsr|
|00001100| 63 54 79 70 65 20 72 73 | 72 63 49 44 20 66 69 6c |cType rs|rcID fil|
|00001110| 65 6e 61 6d 65 20 6f 6c | 64 2d 62 75 66 66 65 72 |ename ol|d-buffer|
|00001120| 20 62 75 66 66 65 72 20 | 65 72 72 41 45 45 76 65 | buffer |errAEEve|
|00001130| 6e 74 4e 6f 74 48 61 6e | 64 6c 65 64 20 74 63 3a |ntNotHan|dled tc:|
|00001140| 64 65 62 75 67 2d 74 72 | 61 63 65 20 74 63 3a 68 |debug-tr|ace tc:h|
|00001150| 61 76 65 2d 54 50 4d 2d | 64 61 74 61 20 64 61 74 |ave-TPM-|data dat|
|00001160| 61 48 61 6e 64 6c 65 20 | 74 20 6e 6f 45 72 72 20 |aHandle |t noErr |
|00001170| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 34 20 30 20 |make-str|ing 4 0 |
|00001180| 63 3a 73 69 7a 65 6f 66 | 20 74 63 3a 73 74 72 75 |c:sizeof| tc:stru|
|00001190| 63 74 2d 66 73 73 50 6c | 75 73 20 74 68 72 6f 77 |ct-fssPl|us throw|
|000011a0| 2d 65 72 72 20 41 45 47 | 65 74 50 61 72 61 6d 50 |-err AEG|etParamP|
|000011b0| 74 72 20 63 3a 73 6c 6f | 74 72 65 66 20 66 73 73 |tr c:slo|tref fss|
|000011c0| 20 67 65 74 53 74 61 74 | 65 4d 73 67 20 74 63 3a | getStat|eMsg tc:|
|000011d0| 73 74 72 75 63 74 2d 67 | 65 74 53 74 61 74 65 4d |struct-g|etStateM|
|000011e0| 73 67 20 46 53 53 70 65 | 63 2d 74 6f 2d 75 6e 69 |sg FSSpe|c-to-uni|
|000011f0| 78 2d 66 69 6c 65 6e 61 | 6d 65 20 67 65 74 2d 66 |x-filena|me get-f|
|00001200| 69 6c 65 2d 62 75 66 66 | 65 72 20 74 68 72 6f 77 |ile-buff|er throw|
|00001210| 20 70 61 6e 69 63 20 44 | 65 62 75 67 53 74 72 20 | panic D|ebugStr |
|00001220| 22 52 65 73 6f 75 72 63 | 65 20 74 79 70 65 20 69 |"Resourc|e type i|
|00001230| 73 20 22 20 22 20 22 20 | 65 71 75 61 6c 20 22 44 |s " " " |equal "D|
|00001240| 54 56 55 22 20 66 69 6e | 64 2d 72 73 72 63 20 74 |TVU" fin|d-rsrc t|
|00001250| 63 3a 64 61 74 61 76 69 | 65 77 73 20 74 63 3a 64 |c:datavi|ews tc:d|
|00001260| 74 76 75 49 44 73 20 74 | 63 3a 64 74 76 75 53 69 |tvuIDs t|c:dtvuSi|
|00001270| 7a 65 73 20 22 42 4b 50 | 54 22 20 74 63 3a 62 72 |zes "BKP|T" tc:br|
|00001280| 65 61 6b 70 6f 69 6e 74 | 73 20 74 63 3a 62 6b 70 |eakpoint|s tc:bkp|
|00001290| 74 49 44 73 20 74 63 3a | 62 6b 70 74 53 69 7a 65 |tIDs tc:|bkptSize|
|000012a0| 73 20 63 3a 73 6c 6f 74 | 73 65 74 20 72 73 72 63 |s c:slot|set rsrc|
|000012b0| 48 5d 20 33 31 29 5d 20 | 32 29 20 28 28 65 72 72 |H] 31)] |2) ((err|
|000012c0| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |or (byte|-code ".|
|000012d0| 85 07 00 c2 c3 21 88 09 | 87 22 20 5b 74 63 3a 64 |.....!..|." [tc:d|
|000012e0| 65 62 75 67 2d 66 61 69 | 6c 75 72 65 73 20 65 72 |ebug-fai|lures er|
|000012f0| 72 41 45 45 76 65 6e 74 | 4e 6f 74 48 61 6e 64 6c |rAEEvent|NotHandl|
|00001300| 65 64 20 44 65 62 75 67 | 53 74 72 20 22 43 6f 75 |ed Debug|Str "Cou|
|00001310| 6c 64 6e 27 74 20 63 6f | 6d 70 6c 65 74 65 20 47 |ldn't co|mplete G|
|00001320| 54 44 53 22 5d 20 32 29 | 29 29 5d 20 34 29 29 0a |TDS"] 2)|))] 4)).|
|00001330| 0a 28 64 65 66 75 6e 20 | 66 69 6e 64 2d 72 73 72 |.(defun |find-rsr|
|00001340| 63 20 28 64 61 74 61 20 | 49 44 73 20 73 69 7a 65 |c (data |IDs size|
|00001350| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 cc |s) (byte|-code ".|
|00001360| 08 21 86 0f 00 cc 09 21 | 86 0f 00 cc 0a 21 85 16 |.!.....!|.....!..|
|00001370| 00 cd ce 0b 5c 22 88 cf | d0 09 21 d1 d2 21 5c 22 |....\"..|..!..!\"|
|00001380| 1c d3 09 0c 0e 06 23 1d | 0d 3f 85 30 00 cd ce 0b |......#.|.?.0....|
|00001390| 5c 22 1e 07 d4 d5 0a 21 | d6 d1 d2 21 0d 5c 22 d2 |\".....!|...!.\".|
|000013a0| 23 1e 08 d7 0a 0d 5c 22 | 1e 09 d8 0e 08 21 1e 0a |#.....\"|.....!..|
|000013b0| d9 20 1e 0b cc 0e 0b 21 | 3f 85 5d 00 cd ce 0e 0b |. .....!|?.].....|
|000013c0| 5c 22 88 da 0e 0a 21 88 | db d5 08 21 0e 09 5c 5c |\"....!.|...!..\\|
|000013d0| d5 0e 0a 21 0e 08 23 88 | dc 0e 0a 21 88 0e 0a 2e |...!..#.|...!....|
|000013e0| 07 87 22 20 5b 64 61 74 | 61 20 49 44 73 20 73 69 |.." [dat|a IDs si|
|000013f0| 7a 65 73 20 65 72 72 41 | 45 45 76 65 6e 74 4e 6f |zes errA|EEventNo|
|00001400| 74 48 61 6e 64 6c 65 64 | 20 6e 75 6d 49 44 73 20 |tHandled| numIDs |
|00001410| 72 73 72 63 49 6e 64 65 | 78 20 72 73 72 63 49 44 |rsrcInde|x rsrcID|
|00001420| 20 6a 75 6e 6b 20 74 68 | 69 73 53 69 7a 65 20 6f | junk th|isSize o|
|00001430| 66 66 73 65 74 20 64 61 | 74 61 48 61 6e 64 6c 65 |ffset da|taHandle|
|00001440| 20 65 72 72 20 7a 65 72 | 6f 70 20 74 68 72 6f 77 | err zer|op throw|
|00001450| 20 70 61 6e 69 63 20 2f | 20 47 65 74 48 61 6e 64 | panic /| GetHand|
|00001460| 6c 65 53 69 7a 65 20 63 | 3a 73 69 7a 65 6f 66 20 |leSize c|:sizeof |
|00001470| 6c 6f 6e 67 20 6c 6f 6f | 6b 75 70 2d 72 73 72 63 |long loo|kup-rsrc|
|00001480| 2d 69 64 20 65 78 74 72 | 61 63 74 2d 69 6e 74 65 |-id extr|act-inte|
|00001490| 72 6e 61 6c 20 64 65 72 | 65 66 20 2a 20 73 75 6d |rnal der|ef * sum|
|000014a0| 2d 73 69 7a 65 73 20 4e | 65 77 48 61 6e 64 6c 65 |-sizes N|ewHandle|
|000014b0| 20 4d 65 6d 45 72 72 6f | 72 20 48 4c 6f 63 6b 20 | MemErro|r HLock |
|000014c0| 42 6c 6f 63 6b 4d 6f 76 | 65 20 48 55 6e 6c 6f 63 |BlockMov|e HUnloc|
|000014d0| 6b 5d 20 32 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |k] 25)).|.(defun |
|000014e0| 73 75 6d 2d 73 69 7a 65 | 73 20 28 73 69 7a 65 2d |sum-size|s (size-|
|000014f0| 6c 69 73 74 20 74 61 72 | 67 65 74 2d 69 6e 64 65 |list tar|get-inde|
|00001500| 78 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c4 |x) (byte|-code ".|
|00001510| c4 19 18 08 0a 57 85 23 | 00 09 c5 c6 0b 21 c7 c8 |.....W.#|.....!..|
|00001520| c9 21 08 5c 22 c9 23 5c | 5c 89 11 88 08 54 89 10 |.!.\".#\|\....T..|
|00001530| 88 82 04 00 88 09 2a 87 | 22 20 5b 69 20 73 75 6d |......*.|" [i sum|
|00001540| 20 74 61 72 67 65 74 2d | 69 6e 64 65 78 20 73 69 | target-|index si|
|00001550| 7a 65 2d 6c 69 73 74 20 | 30 20 65 78 74 72 61 63 |ze-list |0 extrac|
|00001560| 74 2d 69 6e 74 65 72 6e | 61 6c 20 64 65 72 65 66 |t-intern|al deref|
|00001570| 20 2a 20 63 3a 73 69 7a | 65 6f 66 20 6c 6f 6e 67 | * c:siz|eof long|
|00001580| 5d 20 39 29 29 0a 0a 28 | 64 65 66 75 6e 20 6c 6f |] 9))..(|defun lo|
|00001590| 6f 6b 75 70 2d 72 73 72 | 63 2d 69 64 20 28 69 64 |okup-rsr|c-id (id|
|000015a0| 2d 6c 69 73 74 20 6e 75 | 6d 49 44 73 20 74 61 72 |-list nu|mIDs tar|
|000015b0| 67 65 74 49 44 29 20 28 | 62 79 74 65 2d 63 6f 64 |getID) (|byte-cod|
|000015c0| 65 20 22 c8 c2 19 18 08 | 0b 57 85 3e 00 c9 ca 0d |e ".....|.W.>....|
|000015d0| 21 cb cc cd 21 08 5c 22 | cd 23 1c 0e 06 85 23 00 |!...!.\"|.#....#.|
|000015e0| ce cf 0c d0 0e 07 24 88 | 0c 0e 07 55 83 35 00 08 |......$.|...U.5..|
|000015f0| 89 11 88 0b 89 10 82 39 | 00 08 54 89 10 29 88 82 |.......9|..T..)..|
|00001600| 04 00 88 09 2a 87 22 20 | 5b 69 20 72 65 73 75 6c |....*." |[i resul|
|00001610| 74 20 6e 69 6c 20 6e 75 | 6d 49 44 73 20 74 68 69 |t nil nu|mIDs thi|
|00001620| 73 49 44 20 69 64 2d 6c | 69 73 74 20 74 63 3a 64 |sID id-l|ist tc:d|
|00001630| 65 62 75 67 2d 74 72 61 | 63 65 20 74 61 72 67 65 |ebug-tra|ce targe|
|00001640| 74 49 44 20 30 20 65 78 | 74 72 61 63 74 2d 69 6e |tID 0 ex|tract-in|
|00001650| 74 65 72 6e 61 6c 20 64 | 65 72 65 66 20 2a 20 63 |ternal d|eref * c|
|00001660| 3a 73 69 7a 65 6f 66 20 | 6c 6f 6e 67 20 44 65 62 |:sizeof |long Deb|
|00001670| 75 67 53 74 72 20 22 43 | 6f 6d 70 61 72 69 6e 67 |ugStr "C|omparing|
|00001680| 20 22 20 22 20 61 6e 64 | 20 22 5d 20 31 30 29 29 | " " and| "] 10))|
|00001690| 0a 0a 28 63 3a 64 65 66 | 73 74 72 75 63 74 20 74 |..(c:def|struct t|
|000016a0| 63 3a 73 74 72 75 63 74 | 2d 70 74 64 73 20 28 28 |c:struct|-ptds ((|
|000016b0| 46 53 53 70 65 63 20 66 | 73 73 29 20 28 6c 6f 6e |FSSpec f|ss) (lon|
|000016c0| 67 20 70 42 6b 70 74 49 | 44 73 29 20 28 6c 6f 6e |g pBkptI|Ds) (lon|
|000016d0| 67 20 70 44 74 76 75 49 | 44 73 29 20 28 6c 6f 6e |g pDtvuI|Ds) (lon|
|000016e0| 67 20 70 42 6b 70 74 53 | 69 7a 65 73 29 20 28 6c |g pBkptS|izes) (l|
|000016f0| 6f 6e 67 20 70 44 74 76 | 75 53 69 7a 65 73 29 20 |ong pDtv|uSizes) |
|00001700| 28 6c 6f 6e 67 20 70 4d | 61 72 6b 65 72 73 29 20 |(long pM|arkers) |
|00001710| 28 6c 6f 6e 67 20 70 42 | 72 65 61 6b 70 6f 69 6e |(long pB|reakpoin|
|00001720| 74 73 29 20 28 6c 6f 6e | 67 20 70 44 61 74 61 76 |ts) (lon|g pDatav|
|00001730| 69 65 77 73 29 20 28 6c | 6f 6e 67 20 70 4c 69 6e |iews) (l|ong pLin|
|00001740| 65 4f 66 66 73 65 74 73 | 29 20 28 6c 6f 6e 67 20 |eOffsets|) (long |
|00001750| 47 65 74 43 68 61 72 50 | 6f 73 29 20 28 6c 6f 6e |GetCharP|os) (lon|
|00001760| 67 20 47 65 74 4c 69 6e | 65 4e 75 6d 29 20 28 6c |g GetLin|eNum) (l|
|00001770| 6f 6e 67 20 6f 6c 64 53 | 65 6c 53 74 61 72 74 29 |ong oldS|elStart)|
|00001780| 20 28 6c 6f 6e 67 20 6f | 6c 64 53 65 6c 45 6e 64 | (long o|ldSelEnd|
|00001790| 29 20 28 6c 6f 6e 67 20 | 6f 6c 64 54 65 78 74 4c |) (long |oldTextL|
|000017a0| 65 6e 29 20 28 6c 6f 6e | 67 20 6f 6c 64 4c 69 6e |en) (lon|g oldLin|
|000017b0| 65 53 74 61 72 74 29 20 | 28 6c 6f 6e 67 20 6f 6c |eStart) |(long ol|
|000017c0| 64 4c 69 6e 65 45 6e 64 | 29 20 28 6c 6f 6e 67 20 |dLineEnd|) (long |
|000017d0| 6f 6c 64 4e 75 6d 4c 69 | 6e 65 73 29 20 28 6c 6f |oldNumLi|nes) (lo|
|000017e0| 6e 67 20 6e 65 77 54 65 | 78 74 4c 65 6e 29 20 28 |ng newTe|xtLen) (|
|000017f0| 6c 6f 6e 67 20 6e 65 77 | 4e 75 6d 4c 69 6e 65 73 |long new|NumLines|
|00001800| 29 20 28 6c 6f 6e 67 20 | 6e 65 77 53 65 6c 45 6e |) (long |newSelEn|
|00001810| 64 29 20 28 75 6e 73 69 | 67 6e 65 64 2d 6c 6f 6e |d) (unsi|gned-lon|
|00001820| 67 20 72 65 66 43 6f 6e | 29 29 29 0a 0a 28 41 45 |g refCon|)))..(AE|
|00001830| 49 6e 73 74 61 6c 6c 45 | 76 65 6e 74 48 61 6e 64 |InstallE|ventHand|
|00001840| 6c 65 72 20 22 4b 41 48 | 4c 22 20 22 50 54 44 53 |ler "KAH|L" "PTDS|
|00001850| 22 20 28 71 75 6f 74 65 | 20 74 63 3a 64 6f 2d 70 |" (quote| tc:do-p|
|00001860| 74 64 73 2d 65 76 65 6e | 74 29 20 30 20 30 29 0a |tds-even|t) 0 0).|
|00001870| 0a 28 64 65 66 75 6e 20 | 74 63 3a 64 6f 2d 70 74 |.(defun |tc:do-pt|
|00001880| 64 73 2d 65 76 65 6e 74 | 20 28 65 76 65 6e 74 20 |ds-event| (event |
|00001890| 72 65 70 6c 79 20 72 65 | 66 43 6f 6e 29 20 28 62 |reply re|fCon) (b|
|000018a0| 79 74 65 2d 63 6f 64 65 | 20 22 08 85 07 00 c1 c2 |yte-code| "......|
|000018b0| 21 88 c3 c4 c5 8f 87 22 | 20 5b 74 63 3a 64 65 62 |!......"| [tc:deb|
|000018c0| 75 67 2d 74 72 61 63 65 | 20 44 65 62 75 67 53 74 |ug-trace| DebugSt|
|000018d0| 72 20 22 45 6d 61 63 73 | 20 54 50 4d 20 63 6f 64 |r "Emacs| TPM cod|
|000018e0| 65 20 67 6f 74 20 50 54 | 44 53 20 65 76 65 6e 74 |e got PT|DS event|
|000018f0| 22 20 65 72 72 6d 73 67 | 20 28 62 79 74 65 2d 63 |" errmsg| (byte-c|
|00001900| 6f 64 65 20 22 c0 c1 8d | 87 22 20 5b 70 61 6e 69 |ode "...|." [pani|
|00001910| 63 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 df e0 |c (byte-|code "..|
|00001920| e1 5c 22 18 df e2 e3 21 | e1 5c 22 19 df e0 e1 5c |.\"....!|.\"....\|
|00001930| 22 1a e4 e5 0c 0d 0e 06 | 08 09 09 47 0a 26 07 21 |".......|...G.&.!|
|00001940| 1b e6 e3 09 e7 23 1e 07 | e8 0e 07 21 1e 08 70 1e |.....#..|...!..p.|
|00001950| 09 e9 0e 08 21 1e 0a 0e | 0b 85 44 00 ea eb ec 09 |....!...|..D.....|
|00001960| 21 ed 0e 0a 24 88 0e 0a | 3f 85 50 00 ee ef 0e 0c |!...$...|?.P.....|
|00001970| 5c 22 88 0e 0a 71 88 f0 | 0e 0d 21 85 61 00 ee ef |\"...q..|..!.a...|
|00001980| 0e 0c 5c 22 88 f1 f2 f3 | f4 0e 0d 0e 0e 5c 5c 42 |..\"....|.....\\B|
|00001990| f5 0e 0d 0e 0f 5c 5c 42 | f6 0e 0d 0e 10 5c 5c 42 |.....\\B|.....\\B|
|000019a0| f7 0e 0d 0e 11 5c 5c 42 | f8 0e 0d 0e 12 5c 5c 42 |.....\\B|.....\\B|
|000019b0| f9 0e 0d 0e 13 5c 5c 42 | fa 0e 0d 0e 14 5c 5c 42 |.....\\B|.....\\B|
|000019c0| fb 0e 0d 0e 15 5c 5c 42 | fc 0e 16 42 fd 0e 17 42 |.....\\B|...B...B|
|000019d0| fe 0e 18 42 ff 0e 19 42 | 81 40 00 0e 1a 42 81 41 |...B...B|.@...B.A|
|000019e0| 00 0e 1b 42 81 42 00 0e | 1c 42 81 43 00 0e 1d 42 |...B.B..|.B.C...B|
|000019f0| 81 44 00 81 45 00 20 42 | 81 46 00 81 47 00 20 42 |.D..E. B|.F..G. B|
|00001a00| 81 48 00 81 49 00 20 42 | 81 4a 00 0e 0a 42 26 14 |.H..I. B|.J...B&.|
|00001a10| 5c 22 88 0e 09 71 88 0e | 1e 2e 08 87 22 20 5b 72 |\"...q..|...." [r|
|00001a20| 65 73 75 6c 74 54 79 70 | 65 20 64 61 74 61 20 61 |esultTyp|e data a|
|00001a30| 63 74 75 61 6c 53 69 7a | 65 20 6a 75 6e 6b 20 65 |ctualSiz|e junk e|
|00001a40| 76 65 6e 74 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |vent key|DirectOb|
|00001a50| 6a 65 63 74 20 74 79 70 | 65 43 68 61 72 20 73 70 |ject typ|eChar sp|
|00001a60| 65 63 20 66 69 6c 65 6e | 61 6d 65 20 6f 6c 64 2d |ec filen|ame old-|
|00001a70| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 20 74 63 |buffer b|uffer tc|
|00001a80| 3a 64 65 62 75 67 2d 74 | 72 61 63 65 20 65 72 72 |:debug-t|race err|
|00001a90| 41 45 45 76 65 6e 74 4e | 6f 74 48 61 6e 64 6c 65 |AEEventN|otHandle|
|00001aa0| 64 20 74 63 3a 61 64 64 | 72 65 73 73 61 62 6c 65 |d tc:add|ressable|
|00001ab0| 73 20 74 63 3a 62 6b 70 | 74 49 44 73 2d 6f 66 66 |s tc:bkp|tIDs-off|
|00001ac0| 73 65 74 20 74 63 3a 64 | 74 76 75 49 44 73 2d 6f |set tc:d|tvuIDs-o|
|00001ad0| 66 66 73 65 74 20 74 63 | 3a 62 6b 70 74 53 69 7a |ffset tc|:bkptSiz|
|00001ae0| 65 73 2d 6f 66 66 73 65 | 74 20 74 63 3a 64 74 76 |es-offse|t tc:dtv|
|00001af0| 75 53 69 7a 65 73 2d 6f | 66 66 73 65 74 20 74 63 |uSizes-o|ffset tc|
|00001b00| 3a 6d 61 72 6b 65 72 73 | 2d 6f 66 66 73 65 74 20 |:markers|-offset |
|00001b10| 74 63 3a 62 72 65 61 6b | 70 6f 69 6e 74 73 2d 6f |tc:break|points-o|
|00001b20| 66 66 73 65 74 20 74 63 | 3a 64 61 74 61 76 69 65 |ffset tc|:datavie|
|00001b30| 77 73 2d 6f 66 66 73 65 | 74 20 74 63 3a 6c 69 6e |ws-offse|t tc:lin|
|00001b40| 65 4f 66 66 73 65 74 73 | 2d 6f 66 66 73 65 74 20 |eOffsets|-offset |
|00001b50| 74 63 3a 47 65 74 43 68 | 61 72 50 6f 73 20 74 63 |tc:GetCh|arPos tc|
|00001b60| 3a 47 65 74 4c 69 6e 65 | 4e 75 6d 20 74 63 3a 6f |:GetLine|Num tc:o|
|00001b70| 6c 64 53 65 6c 53 74 61 | 72 74 20 74 63 3a 6f 6c |ldSelSta|rt tc:ol|
|00001b80| 64 53 65 6c 45 6e 64 20 | 74 63 3a 6f 6c 64 54 65 |dSelEnd |tc:oldTe|
|00001b90| 78 74 4c 65 6e 20 74 63 | 3a 6f 6c 64 4c 69 6e 65 |xtLen tc|:oldLine|
|00001ba0| 53 74 61 72 74 20 74 63 | 3a 6f 6c 64 4c 69 6e 65 |Start tc|:oldLine|
|00001bb0| 45 6e 64 20 74 63 3a 6f | 6c 64 4e 75 6d 4c 69 6e |End tc:o|ldNumLin|
|00001bc0| 65 73 20 6e 6f 45 72 72 | 20 6d 61 6b 65 2d 73 74 |es noErr| make-st|
|00001bd0| 72 69 6e 67 20 34 20 30 | 20 63 3a 73 69 7a 65 6f |ring 4 0| c:sizeo|
|00001be0| 66 20 74 63 3a 73 74 72 | 75 63 74 2d 70 74 64 73 |f tc:str|uct-ptds|
|00001bf0| 20 74 68 72 6f 77 2d 65 | 72 72 20 41 45 47 65 74 | throw-e|rr AEGet|
|00001c00| 50 61 72 61 6d 50 74 72 | 20 63 3a 73 6c 6f 74 72 |ParamPtr| c:slotr|
|00001c10| 65 66 20 66 73 73 20 46 | 53 53 70 65 63 2d 74 6f |ef fss F|SSpec-to|
|00001c20| 2d 75 6e 69 78 2d 66 69 | 6c 65 6e 61 6d 65 20 67 |-unix-fi|lename g|
|00001c30| 65 74 2d 66 69 6c 65 2d | 62 75 66 66 65 72 20 44 |et-file-|buffer D|
|00001c40| 65 62 75 67 53 74 72 20 | 22 70 74 64 73 20 64 61 |ebugStr |"ptds da|
|00001c50| 74 61 20 69 73 20 61 74 | 20 22 20 73 74 72 69 6e |ta is at| " strin|
|00001c60| 67 2d 64 61 74 61 20 22 | 2c 20 62 75 66 66 65 72 |g-data "|, buffer|
|00001c70| 20 69 73 20 22 20 74 68 | 72 6f 77 20 70 61 6e 69 | is " th|row pani|
|00001c80| 63 20 7a 65 72 6f 70 20 | 6d 61 70 63 61 72 20 28 |c zerop |mapcar (|
|00001c90| 6c 61 6d 62 64 61 20 28 | 78 29 20 28 62 79 74 65 |lambda (|x) (byte|
|00001ca0| 2d 63 6f 64 65 20 22 c2 | c3 c4 08 09 40 23 c5 c6 |-code ".|....@#..|
|00001cb0| 09 41 24 87 22 20 5b 64 | 61 74 61 20 78 20 65 6e |.A$." [d|ata x en|
|00001cc0| 63 6f 64 65 2d 69 6e 74 | 65 72 6e 61 6c 20 63 3a |code-int|ernal c:|
|00001cd0| 73 6c 6f 74 72 65 66 20 | 74 63 3a 73 74 72 75 63 |slotref |tc:struc|
|00001ce0| 74 2d 70 74 64 73 20 30 | 20 75 6e 73 69 67 6e 65 |t-ptds 0| unsigne|
|00001cf0| 64 2d 6c 6f 6e 67 5d 20 | 36 29 29 20 6c 69 73 74 |d-long] |6)) list|
|00001d00| 20 70 42 6b 70 74 49 44 | 73 20 70 44 74 76 75 49 | pBkptID|s pDtvuI|
|00001d10| 44 73 20 70 42 6b 70 74 | 53 69 7a 65 73 20 70 44 |Ds pBkpt|Sizes pD|
|00001d20| 74 76 75 53 69 7a 65 73 | 20 70 4d 61 72 6b 65 72 |tvuSizes| pMarker|
|00001d30| 73 20 70 42 72 65 61 6b | 70 6f 69 6e 74 73 20 70 |s pBreak|points p|
|00001d40| 44 61 74 61 76 69 65 77 | 73 20 70 4c 69 6e 65 4f |Dataview|s pLineO|
|00001d50| 66 66 73 65 74 73 20 47 | 65 74 43 68 61 72 50 6f |ffsets G|etCharPo|
|00001d60| 73 20 47 65 74 4c 69 6e | 65 4e 75 6d 20 6f 6c 64 |s GetLin|eNum old|
|00001d70| 53 65 6c 53 74 61 72 74 | 20 6f 6c 64 53 65 6c 45 |SelStart| oldSelE|
|00001d80| 6e 64 20 6f 6c 64 54 65 | 78 74 4c 65 6e 20 6f 6c |nd oldTe|xtLen ol|
|00001d90| 64 4c 69 6e 65 53 74 61 | 72 74 20 6f 6c 64 4c 69 |dLineSta|rt oldLi|
|00001da0| 6e 65 45 6e 64 20 6f 6c | 64 4e 75 6d 4c 69 6e 65 |neEnd ol|dNumLine|
|00001db0| 73 20 6e 65 77 54 65 78 | 74 4c 65 6e 20 74 63 3a |s newTex|tLen tc:|
|00001dc0| 74 65 78 74 4c 65 6e 20 | 6e 65 77 4e 75 6d 4c 69 |textLen |newNumLi|
|00001dd0| 6e 65 73 20 74 63 3a 6e | 75 6d 4c 69 6e 65 73 20 |nes tc:n|umLines |
|00001de0| 6e 65 77 53 65 6c 45 6e | 64 20 74 63 3a 73 65 6c |newSelEn|d tc:sel|
|00001df0| 45 6e 64 20 72 65 66 43 | 6f 6e 5d 20 34 31 29 5d |End refC|on] 41)]|
|00001e00| 20 32 29 20 28 28 65 72 | 72 6f 72 20 28 62 79 74 | 2) ((er|ror (byt|
|00001e10| 65 2d 63 6f 64 65 20 22 | 08 85 07 00 c2 c3 21 88 |e-code "|......!.|
|00001e20| 09 87 22 20 5b 74 63 3a | 64 65 62 75 67 2d 66 61 |.." [tc:|debug-fa|
|00001e30| 69 6c 75 72 65 73 20 65 | 72 72 41 45 45 76 65 6e |ilures e|rrAEEven|
|00001e40| 74 4e 6f 74 48 61 6e 64 | 6c 65 64 20 44 65 62 75 |tNotHand|led Debu|
|00001e50| 67 53 74 72 20 22 43 6f | 75 6c 64 6e 27 74 20 63 |gStr "Co|uldn't c|
|00001e60| 6f 6d 70 6c 65 74 65 20 | 50 54 44 53 22 5d 20 32 |omplete |PTDS"] 2|
|00001e70| 29 29 29 5d 20 34 29 29 | 0a 0a 28 41 45 49 6e 73 |)))] 4))|..(AEIns|
|00001e80| 74 61 6c 6c 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |tallEven|tHandler|
|00001e90| 20 22 4b 41 48 4c 22 20 | 22 53 52 43 48 22 20 28 | "KAHL" |"SRCH" (|
|00001ea0| 71 75 6f 74 65 20 74 63 | 3a 64 6f 2d 73 72 63 68 |quote tc|:do-srch|
|00001eb0| 2d 65 76 65 6e 74 29 20 | 30 20 30 29 0a 0a 28 63 |-event) |0 0)..(c|
|00001ec0| 3a 64 65 66 73 74 72 75 | 63 74 20 74 63 3a 73 74 |:defstru|ct tc:st|
|00001ed0| 72 75 63 74 2d 73 72 63 | 68 20 28 28 46 53 53 70 |ruct-src|h ((FSSp|
|00001ee0| 65 63 20 66 73 73 29 20 | 28 6c 6f 6e 67 20 6d 6f |ec fss) |(long mo|
|00001ef0| 64 69 66 69 65 64 29 29 | 29 0a 0a 28 64 65 66 75 |dified))|)..(defu|
|00001f00| 6e 20 74 63 3a 64 6f 2d | 73 72 63 68 2d 65 76 65 |n tc:do-|srch-eve|
|00001f10| 6e 74 20 28 65 76 65 6e | 74 20 72 65 70 6c 79 20 |nt (even|t reply |
|00001f20| 72 65 66 43 6f 6e 29 20 | 28 62 79 74 65 2d 63 6f |refCon) |(byte-co|
|00001f30| 64 65 20 22 08 85 07 00 | c1 c2 21 88 c3 c4 c5 8f |de "....|..!.....|
|00001f40| 87 22 20 5b 74 63 3a 64 | 65 62 75 67 2d 74 72 61 |." [tc:d|ebug-tra|
|00001f50| 63 65 20 44 65 62 75 67 | 53 74 72 20 22 45 6d 61 |ce Debug|Str "Ema|
|00001f60| 63 73 20 54 50 4d 20 63 | 6f 64 65 20 67 6f 74 20 |cs TPM c|ode got |
|00001f70| 53 52 43 48 20 65 76 65 | 6e 74 22 20 65 72 72 6d |SRCH eve|nt" errm|
|00001f80| 73 67 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |sg (byte|-code ".|
|00001f90| c1 8d 87 22 20 5b 70 61 | 6e 69 63 20 28 62 79 74 |..." [pa|nic (byt|
|00001fa0| 65 2d 63 6f 64 65 20 22 | cf d0 d1 5c 22 18 cf d0 |e-code "|...\"...|
|00001fb0| d1 5c 22 19 cf d2 d3 21 | d1 5c 22 1a d4 1b d5 d6 |.\"....!|.\".....|
|00001fc0| 0d 0e 06 0e 07 08 0a d2 | d3 21 09 26 07 21 1c d7 |........|.!.&.!..|
|00001fd0| d3 0a d8 23 1e 08 d7 d3 | 0a c9 23 1e 09 d9 0e 08 |...#....|..#.....|
|00001fe0| 21 1e 0a da 0e 0a 21 1e | 0b 0e 0b 3f 85 49 00 db |!.....!.|...?.I..|
|00001ff0| dc 0e 0c 5c 22 88 0e 0b | 71 88 cf d0 d1 5c 22 1e |...\"...|q....\".|
|00002000| 0d dd 0e 0d 21 88 de 0e | 0d d1 df 23 89 13 29 88 |....!...|...#..).|
|00002010| e0 0e 09 d1 df e1 20 83 | 73 00 0b e2 5a 82 74 00 |...... .|s...Z.t.|
|00002020| d1 24 88 0e 0e 2e 09 87 | 22 20 5b 72 65 74 75 72 |.$......|" [retur|
|00002030| 6e 65 64 54 79 70 65 20 | 61 63 74 75 61 6c 53 69 |nedType |actualSi|
|00002040| 7a 65 20 73 72 63 68 2d | 72 65 63 6f 72 64 20 6e |ze srch-|record n|
|00002050| 6f 77 20 6a 75 6e 6b 20 | 65 76 65 6e 74 20 6b 65 |ow junk |event ke|
|00002060| 79 44 69 72 65 63 74 4f | 62 6a 65 63 74 20 74 79 |yDirectO|bject ty|
|00002070| 70 65 43 68 61 72 20 73 | 70 65 63 20 6d 6f 64 69 |peChar s|pec modi|
|00002080| 66 69 65 64 20 66 69 6c | 65 6e 61 6d 65 20 62 75 |fied fil|ename bu|
|00002090| 66 66 65 72 20 66 6e 66 | 45 72 72 20 73 20 6e 6f |ffer fnf|Err s no|
|000020a0| 45 72 72 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |Err make|-string |
|000020b0| 34 20 30 20 63 3a 73 69 | 7a 65 6f 66 20 74 63 3a |4 0 c:si|zeof tc:|
|000020c0| 73 74 72 75 63 74 2d 73 | 72 63 68 20 6e 69 6c 20 |struct-s|rch nil |
|000020d0| 74 68 72 6f 77 2d 65 72 | 72 20 41 45 47 65 74 50 |throw-er|r AEGetP|
|000020e0| 61 72 61 6d 50 74 72 20 | 63 3a 73 6c 6f 74 72 65 |aramPtr |c:slotre|
|000020f0| 66 20 66 73 73 20 46 53 | 53 70 65 63 2d 74 6f 2d |f fss FS|Spec-to-|
|00002100| 75 6e 69 78 2d 66 69 6c | 65 6e 61 6d 65 20 67 65 |unix-fil|ename ge|
|00002110| 74 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 20 74 68 |t-file-b|uffer th|
|00002120| 72 6f 77 20 70 61 6e 69 | 63 20 47 65 74 44 61 74 |row pani|c GetDat|
|00002130| 65 54 69 6d 65 2d 69 6e | 74 65 72 6e 61 6c 20 65 |eTime-in|ternal e|
|00002140| 78 74 72 61 63 74 2d 69 | 6e 74 65 72 6e 61 6c 20 |xtract-i|nternal |
|00002150| 6c 6f 6e 67 20 65 6e 63 | 6f 64 65 2d 69 6e 74 65 |long enc|ode-inte|
|00002160| 72 6e 61 6c 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |rnal buf|fer-modi|
|00002170| 66 69 65 64 2d 70 20 35 | 5d 20 32 32 29 5d 20 32 |fied-p 5|] 22)] 2|
|00002180| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00002190| 63 6f 64 65 20 22 08 85 | 07 00 c2 c3 21 88 09 87 |code "..|....!...|
|000021a0| 22 20 5b 74 63 3a 64 65 | 62 75 67 2d 66 61 69 6c |" [tc:de|bug-fail|
|000021b0| 75 72 65 73 20 65 72 72 | 41 45 45 76 65 6e 74 4e |ures err|AEEventN|
|000021c0| 6f 74 48 61 6e 64 6c 65 | 64 20 44 65 62 75 67 53 |otHandle|d DebugS|
|000021d0| 74 72 20 22 43 6f 75 6c | 64 6e 27 74 20 63 6f 6d |tr "Coul|dn't com|
|000021e0| 70 6c 65 74 65 20 53 52 | 43 48 22 5d 20 32 29 29 |plete SR|CH"] 2))|
|000021f0| 29 5d 20 34 29 29 0a 0a | 28 63 3a 64 65 66 73 74 |)] 4))..|(c:defst|
|00002200| 72 75 63 74 20 74 63 3a | 73 74 72 75 63 74 2d 6d |ruct tc:|struct-m|
|00002210| 6b 75 70 20 28 28 6c 6f | 6e 67 20 6d 61 72 6b 65 |kup ((lo|ng marke|
|00002220| 72 73 29 20 28 6c 6f 6e | 67 20 62 72 65 61 6b 70 |rs) (lon|g breakp|
|00002230| 6f 69 6e 74 73 29 20 28 | 6c 6f 6e 67 20 64 61 74 |oints) (|long dat|
|00002240| 61 76 69 65 77 73 29 20 | 28 6c 6f 6e 67 20 6c 69 |aviews) |(long li|
|00002250| 6e 65 4f 66 66 73 65 74 | 73 29 20 28 6c 6f 6e 67 |neOffset|s) (long|
|00002260| 20 64 74 76 75 49 44 73 | 29 20 28 6c 6f 6e 67 20 | dtvuIDs|) (long |
|00002270| 6f 6c 64 53 65 6c 53 74 | 61 72 74 29 20 28 6c 6f |oldSelSt|art) (lo|
|00002280| 6e 67 20 6f 6c 64 53 65 | 6c 45 6e 64 29 20 28 6c |ng oldSe|lEnd) (l|
|00002290| 6f 6e 67 20 6f 6c 64 54 | 65 78 74 4c 65 6e 29 20 |ong oldT|extLen) |
|000022a0| 28 6c 6f 6e 67 20 6f 6c | 64 4c 69 6e 65 53 74 61 |(long ol|dLineSta|
|000022b0| 72 74 29 20 28 6c 6f 6e | 67 20 6f 6c 64 4c 69 6e |rt) (lon|g oldLin|
|000022c0| 65 45 6e 64 29 20 28 6c | 6f 6e 67 20 6f 6c 64 4e |eEnd) (l|ong oldN|
|000022d0| 75 6d 4c 69 6e 65 73 29 | 20 28 6c 6f 6e 67 20 6e |umLines)| (long n|
|000022e0| 65 77 54 65 78 74 4c 65 | 6e 29 20 28 6c 6f 6e 67 |ewTextLe|n) (long|
|000022f0| 20 6e 65 77 4e 75 6d 4c | 69 6e 65 73 29 20 28 6c | newNumL|ines) (l|
|00002300| 6f 6e 67 20 6e 65 77 53 | 65 6c 45 6e 64 29 20 28 |ong newS|elEnd) (|
|00002310| 75 6e 73 69 67 6e 65 64 | 2d 6c 6f 6e 67 20 72 65 |unsigned|-long re|
|00002320| 66 43 6f 6e 29 29 29 0a | 0a 28 64 65 66 75 6e 20 |fCon))).|.(defun |
|00002330| 6d 61 6b 65 2d 6d 6b 75 | 70 20 28 62 75 66 66 65 |make-mku|p (buffe|
|00002340| 72 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 70 |r) (byte|-code "p|
|00002350| cb cc cd 21 ce 5c 22 19 | 18 0a 71 88 0b 3f 83 18 |...!.\".|..q..?..|
|00002360| 00 08 71 88 c4 82 92 00 | cf cd 09 d0 d1 20 24 88 |..q.....|..... $.|
|00002370| cf cd 09 d2 d3 20 24 88 | cf cd 09 d4 d5 20 24 88 |..... $.|..... $.|
|00002380| cf cd 09 d6 d7 20 24 88 | cf cd 09 d8 d9 20 24 88 |..... $.|..... $.|
|00002390| cf cd 09 da 0d 24 88 cf | cd 09 db 0e 06 24 88 cf |.....$..|.....$..|
|000023a0| cd 09 dc 0e 07 24 88 cf | cd 09 dd 0e 08 24 88 cf |.....$..|.....$..|
|000023b0| cd 09 de 0e 09 24 88 cf | cd 09 df 0e 0a 24 88 cf |.....$..|.....$..|
|000023c0| cd 09 e0 e1 20 24 88 cf | cd 09 e2 e3 20 24 88 cf |.... $..|.... $..|
|000023d0| cd 09 e4 e5 20 24 88 cf | cd 09 e6 0a 24 88 08 71 |.... $..|....$..q|
|000023e0| 88 09 2a 87 22 20 5b 6f | 6c 64 2d 62 75 66 66 65 |..*." [o|ld-buffe|
|000023f0| 72 20 6d 6b 75 70 20 62 | 75 66 66 65 72 20 74 63 |r mkup b|uffer tc|
|00002400| 3a 68 61 76 65 2d 54 50 | 4d 2d 64 61 74 61 20 6e |:have-TP|M-data n|
|00002410| 69 6c 20 74 63 3a 6f 6c | 64 53 65 6c 53 74 61 72 |il tc:ol|dSelStar|
|00002420| 74 20 74 63 3a 6f 6c 64 | 53 65 6c 45 6e 64 20 74 |t tc:old|SelEnd t|
|00002430| 63 3a 6f 6c 64 54 65 78 | 74 4c 65 6e 20 74 63 3a |c:oldTex|tLen tc:|
|00002440| 6f 6c 64 4c 69 6e 65 53 | 74 61 72 74 20 74 63 3a |oldLineS|tart tc:|
|00002450| 6f 6c 64 4c 69 6e 65 45 | 6e 64 20 74 63 3a 6f 6c |oldLineE|nd tc:ol|
|00002460| 64 4e 75 6d 4c 69 6e 65 | 73 20 6d 61 6b 65 2d 73 |dNumLine|s make-s|
|00002470| 74 72 69 6e 67 20 63 3a | 73 69 7a 65 6f 66 20 74 |tring c:|sizeof t|
|00002480| 63 3a 73 74 72 75 63 74 | 2d 6d 6b 75 70 20 30 20 |c:struct|-mkup 0 |
|00002490| 63 3a 73 6c 6f 74 73 65 | 74 20 6d 61 72 6b 65 72 |c:slotse|t marker|
|000024a0| 73 20 74 63 3a 6d 61 72 | 6b 65 72 73 20 62 72 65 |s tc:mar|kers bre|
|000024b0| 61 6b 70 6f 69 6e 74 73 | 20 74 63 3a 62 72 65 61 |akpoints| tc:brea|
|000024c0| 6b 70 6f 69 6e 74 73 20 | 64 61 74 61 76 69 65 77 |kpoints |dataview|
|000024d0| 73 20 74 63 3a 64 61 74 | 61 76 69 65 77 73 20 6c |s tc:dat|aviews l|
|000024e0| 69 6e 65 4f 66 66 73 65 | 74 73 20 74 63 3a 6c 69 |ineOffse|ts tc:li|
|000024f0| 6e 65 4f 66 66 73 65 74 | 73 20 64 74 76 75 49 44 |neOffset|s dtvuID|
|00002500| 73 20 74 63 3a 64 74 76 | 75 49 44 73 20 6f 6c 64 |s tc:dtv|uIDs old|
|00002510| 53 65 6c 53 74 61 72 74 | 20 6f 6c 64 53 65 6c 45 |SelStart| oldSelE|
|00002520| 6e 64 20 6f 6c 64 54 65 | 78 74 4c 65 6e 20 6f 6c |nd oldTe|xtLen ol|
|00002530| 64 4c 69 6e 65 53 74 61 | 72 74 20 6f 6c 64 4c 69 |dLineSta|rt oldLi|
|00002540| 6e 65 45 6e 64 20 6f 6c | 64 4e 75 6d 4c 69 6e 65 |neEnd ol|dNumLine|
|00002550| 73 20 6e 65 77 54 65 78 | 74 4c 65 6e 20 74 63 3a |s newTex|tLen tc:|
|00002560| 74 65 78 74 4c 65 6e 20 | 6e 65 77 4e 75 6d 4c 69 |textLen |newNumLi|
|00002570| 6e 65 73 20 74 63 3a 6e | 75 6d 4c 69 6e 65 73 20 |nes tc:n|umLines |
|00002580| 6e 65 77 53 65 6c 45 6e | 64 20 74 63 3a 73 65 6c |newSelEn|d tc:sel|
|00002590| 45 6e 64 20 72 65 66 43 | 6f 6e 5d 20 32 39 29 29 |End refC|on] 29))|
|000025a0| 0a 0a 28 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e |..(AEIns|tallEven|
|000025b0| 74 48 61 6e 64 6c 65 72 | 20 22 4b 41 48 4c 22 20 |tHandler| "KAHL" |
|000025c0| 22 4d 4b 55 50 22 20 28 | 71 75 6f 74 65 20 74 63 |"MKUP" (|quote tc|
|000025d0| 3a 64 6f 2d 6d 6b 75 70 | 2d 65 76 65 6e 74 29 20 |:do-mkup|-event) |
|000025e0| 30 20 30 29 0a 0a 28 64 | 65 66 75 6e 20 74 63 3a |0 0)..(d|efun tc:|
|000025f0| 64 6f 2d 6d 6b 75 70 2d | 65 76 65 6e 74 20 28 65 |do-mkup-|event (e|
|00002600| 76 65 6e 74 20 72 65 70 | 6c 79 20 72 65 66 43 6f |vent rep|ly refCo|
|00002610| 6e 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |n) (byte|-code ".|
|00002620| 85 07 00 c1 c2 21 88 c3 | c4 c5 8f 87 22 20 5b 74 |.....!..|...." [t|
|00002630| 63 3a 64 65 62 75 67 2d | 74 72 61 63 65 20 44 65 |c:debug-|trace De|
|00002640| 62 75 67 53 74 72 20 22 | 45 6d 61 63 73 20 54 50 |bugStr "|Emacs TP|
|00002650| 4d 20 63 6f 64 65 20 67 | 6f 74 20 4d 4b 55 50 20 |M code g|ot MKUP |
|00002660| 65 76 65 6e 74 22 20 65 | 72 72 6d 73 67 20 28 62 |event" e|rrmsg (b|
|00002670| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 8d 87 22 20 |yte-code| "...." |
|00002680| 5b 70 61 6e 69 63 20 28 | 62 79 74 65 2d 63 6f 64 |[panic (|byte-cod|
|00002690| 65 20 22 70 18 c9 0a ca | 5c 22 19 cb 0c 21 1b cc |e "p....|\"...!..|
|000026a0| cd 0d ce 0e 06 0b cf d0 | 21 25 21 88 cc d1 ca ca |........|!%!.....|
|000026b0| ca 09 24 21 88 d2 d3 d4 | 20 5c 22 88 cc d5 0d 0e |..$!....| \".....|
|000026c0| 07 09 23 21 88 d6 09 21 | 88 08 71 88 0e 08 2b 87 |..#!...!|..q...+.|
|000026d0| 22 20 5b 6f 6c 64 2d 62 | 75 66 66 65 72 20 6d 6b |" [old-b|uffer mk|
|000026e0| 75 70 2d 6c 69 73 74 20 | 73 69 7a 65 6f 66 2d 41 |up-list |sizeof-A|
|000026f0| 45 44 65 73 63 4c 69 73 | 74 20 63 61 6c 6c 62 61 |EDescLis|t callba|
|00002700| 63 6b 2d 64 61 74 61 20 | 74 63 3a 47 65 74 4c 69 |ck-data |tc:GetLi|
|00002710| 6e 65 4e 75 6d 20 72 65 | 70 6c 79 20 74 79 70 65 |neNum re|ply type|
|00002720| 43 68 61 72 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |Char key|DirectOb|
|00002730| 6a 65 63 74 20 6e 6f 45 | 72 72 20 6d 61 6b 65 2d |ject noE|rr make-|
|00002740| 73 74 72 69 6e 67 20 30 | 20 65 6e 63 6f 64 65 2d |string 0| encode-|
|00002750| 6c 6f 6e 67 2d 69 6e 74 | 65 67 65 72 20 74 68 72 |long-int|eger thr|
|00002760| 6f 77 2d 65 72 72 20 41 | 45 50 75 74 50 61 72 61 |ow-err A|EPutPara|
|00002770| 6d 50 74 72 20 22 43 4c | 42 4b 22 20 63 3a 73 69 |mPtr "CL|BK" c:si|
|00002780| 7a 65 6f 66 20 6c 6f 6e | 67 20 41 45 43 72 65 61 |zeof lon|g AECrea|
|00002790| 74 65 4c 69 73 74 20 6d | 61 70 63 61 72 20 28 6c |teList m|apcar (l|
|000027a0| 61 6d 62 64 61 20 28 78 | 29 20 28 62 79 74 65 2d |ambda (x|) (byte-|
|000027b0| 63 6f 64 65 20 22 08 40 | 71 88 c4 08 40 21 19 09 |code ".@|q...@!..|
|000027c0| 85 17 00 c5 c6 0a c7 0b | 09 09 47 25 21 29 87 22 |........|..G%!)."|
|000027d0| 20 5b 78 20 6d 6b 75 70 | 20 6d 6b 75 70 2d 6c 69 | [x mkup| mkup-li|
|000027e0| 73 74 20 74 79 70 65 43 | 68 61 72 20 6d 61 6b 65 |st typeC|har make|
|000027f0| 2d 6d 6b 75 70 20 74 68 | 72 6f 77 2d 65 72 72 20 |-mkup th|row-err |
|00002800| 41 45 50 75 74 50 74 72 | 20 30 5d 20 38 29 29 20 |AEPutPtr| 0] 8)) |
|00002810| 74 63 3a 72 65 6c 65 76 | 61 6e 74 2d 62 75 66 66 |tc:relev|ant-buff|
|00002820| 65 72 73 20 41 45 50 75 | 74 50 61 72 61 6d 44 65 |ers AEPu|tParamDe|
|00002830| 73 63 20 41 45 44 69 73 | 70 6f 73 65 44 65 73 63 |sc AEDis|poseDesc|
|00002840| 5d 20 31 34 29 5d 20 32 | 29 20 28 28 65 72 72 6f |] 14)] 2|) ((erro|
|00002850| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 c2 |r (byte-|code "..|
|00002860| 21 88 08 87 22 20 5b 65 | 72 72 41 45 45 76 65 6e |!..." [e|rrAEEven|
|00002870| 74 4e 6f 74 48 61 6e 64 | 6c 65 64 20 44 65 62 75 |tNotHand|led Debu|
|00002880| 67 53 74 72 20 22 43 6f | 75 6c 64 6e 27 74 20 63 |gStr "Co|uldn't c|
|00002890| 6f 6d 70 6c 65 74 65 20 | 4d 4b 55 50 22 5d 20 32 |omplete |MKUP"] 2|
|000028a0| 29 29 29 5d 20 34 29 29 | 0a 0a 28 41 45 49 6e 73 |)))] 4))|..(AEIns|
|000028b0| 74 61 6c 6c 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |tallEven|tHandler|
|000028c0| 20 22 4b 41 48 4c 22 20 | 22 4f 46 53 54 22 20 28 | "KAHL" |"OFST" (|
|000028d0| 71 75 6f 74 65 20 74 63 | 3a 64 6f 2d 6f 66 73 74 |quote tc|:do-ofst|
|000028e0| 2d 65 76 65 6e 74 29 20 | 30 20 30 29 0a 0a 28 64 |-event) |0 0)..(d|
|000028f0| 65 66 75 6e 20 74 63 3a | 64 6f 2d 6f 66 73 74 2d |efun tc:|do-ofst-|
|00002900| 65 76 65 6e 74 20 28 65 | 76 65 6e 74 20 72 65 70 |event (e|vent rep|
|00002910| 6c 79 20 72 65 66 43 6f | 6e 29 20 28 62 79 74 65 |ly refCo|n) (byte|
|00002920| 2d 63 6f 64 65 20 22 08 | 85 07 00 c1 c2 21 88 c3 |-code ".|.....!..|
|00002930| c4 c5 8f 87 22 20 5b 74 | 63 3a 64 65 62 75 67 2d |...." [t|c:debug-|
|00002940| 74 72 61 63 65 20 44 65 | 62 75 67 53 74 72 20 22 |trace De|bugStr "|
|00002950| 45 6d 61 63 73 20 54 50 | 4d 20 63 6f 64 65 20 67 |Emacs TP|M code g|
|00002960| 6f 74 20 4f 46 53 54 20 | 65 76 65 6e 74 22 20 65 |ot OFST |event" e|
|00002970| 72 72 6d 73 67 20 28 62 | 79 74 65 2d 63 6f 64 65 |rrmsg (b|yte-code|
|00002980| 20 22 70 18 c2 c3 c4 20 | 5c 22 88 08 71 88 09 29 | "p.... |\"..q..)|
|00002990| 87 22 20 5b 6f 6c 64 2d | 62 75 66 66 65 72 20 6e |." [old-|buffer n|
|000029a0| 6f 45 72 72 20 6d 61 70 | 63 61 72 20 28 6c 61 6d |oErr map|car (lam|
|000029b0| 62 64 61 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |bda (x) |(byte-co|
|000029c0| 64 65 20 22 08 40 71 88 | c1 20 87 22 20 5b 78 20 |de ".@q.|. ." [x |
|000029d0| 72 65 6d 61 6b 65 2d 6c | 69 6e 65 4f 66 66 73 65 |remake-l|ineOffse|
|000029e0| 74 73 5d 20 32 29 29 20 | 74 63 3a 72 65 6c 65 76 |ts] 2)) |tc:relev|
|000029f0| 61 6e 74 2d 62 75 66 66 | 65 72 73 5d 20 34 29 20 |ant-buff|ers] 4) |
|00002a00| 28 28 65 72 72 6f 72 20 | 28 62 79 74 65 2d 63 6f |((error |(byte-co|
|00002a10| 64 65 20 22 08 85 07 00 | c2 c3 21 88 09 87 22 20 |de "....|..!..." |
|00002a20| 5b 74 63 3a 64 65 62 75 | 67 2d 66 61 69 6c 75 72 |[tc:debu|g-failur|
|00002a30| 65 73 20 65 72 72 41 45 | 45 76 65 6e 74 4e 6f 74 |es errAE|EventNot|
|00002a40| 48 61 6e 64 6c 65 64 20 | 44 65 62 75 67 53 74 72 |Handled |DebugStr|
|00002a50| 20 22 43 6f 75 6c 64 6e | 27 74 20 63 6f 6d 70 6c | "Couldn|'t compl|
|00002a60| 65 74 65 20 4f 46 53 54 | 22 5d 20 32 29 29 29 5d |ete OFST|"] 2)))]|
|00002a70| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 65 6d | 4))..(d|efun rem|
|00002a80| 61 6b 65 2d 6c 69 6e 65 | 4f 66 66 73 65 74 73 20 |ake-line|Offsets |
|00002a90| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00002aa0| c3 20 18 c4 c5 c6 c7 21 | 08 54 5c 22 21 19 c8 c9 |. .....!|.T\"!...|
|00002ab0| 20 21 3f 83 1a 00 c9 20 | 82 39 00 ca 09 21 88 cb | !?.... |.9...!..|
|00002ac0| cc 09 21 c5 08 c6 c7 21 | 5c 22 c7 cd ce 21 08 5a |..!....!|\"...!.Z|
|00002ad0| 24 88 cf 09 21 88 d0 09 | 21 88 0a 2a 87 22 20 5b |$...!...|!..*." [|
|00002ae0| 6e 4c 69 6e 65 73 20 6c | 69 6e 65 4f 66 66 73 65 |nLines l|ineOffse|
|00002af0| 74 73 20 6e 6f 45 72 72 | 20 74 63 3a 6e 75 6d 4c |ts noErr| tc:numL|
|00002b00| 69 6e 65 73 20 4e 65 77 | 48 61 6e 64 6c 65 43 6c |ines New|HandleCl|
|00002b10| 65 61 72 20 2a 20 63 3a | 73 69 7a 65 6f 66 20 73 |ear * c:|sizeof s|
|00002b20| 68 6f 72 74 20 7a 65 72 | 6f 70 20 4d 65 6d 45 72 |hort zer|op MemEr|
|00002b30| 72 6f 72 20 48 4c 6f 63 | 6b 20 65 6e 63 6f 64 65 |ror HLoc|k encode|
|00002b40| 2d 69 6e 74 65 72 6e 61 | 6c 20 64 65 72 65 66 20 |-interna|l deref |
|00002b50| 68 65 78 2d 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |hex-stri|ng-to-in|
|00002b60| 74 20 22 37 66 66 66 22 | 20 48 55 6e 6c 6f 63 6b |t "7fff"| HUnlock|
|00002b70| 20 73 65 74 66 2d 74 63 | 3a 6c 69 6e 65 4f 66 66 | setf-tc|:lineOff|
|00002b80| 73 65 74 73 5d 20 31 38 | 29 29 0a 0a 28 41 45 49 |sets] 18|))..(AEI|
|00002b90| 6e 73 74 61 6c 6c 45 76 | 65 6e 74 48 61 6e 64 6c |nstallEv|entHandl|
|00002ba0| 65 72 20 22 4b 41 48 4c | 22 20 22 4e 4f 4e 46 22 |er "KAHL|" "NONF"|
|00002bb0| 20 28 71 75 6f 74 65 20 | 74 63 3a 64 6f 2d 6e 6f | (quote |tc:do-no|
|00002bc0| 6e 66 2d 65 76 65 6e 74 | 29 20 30 20 30 29 0a 0a |nf-event|) 0 0)..|
|00002bd0| 28 64 65 66 75 6e 20 74 | 63 3a 64 6f 2d 6e 6f 6e |(defun t|c:do-non|
|00002be0| 66 2d 65 76 65 6e 74 20 | 28 65 76 65 6e 74 20 72 |f-event |(event r|
|00002bf0| 65 70 6c 79 20 72 65 66 | 43 6f 6e 29 20 28 62 79 |eply ref|Con) (by|
|00002c00| 74 65 2d 63 6f 64 65 20 | 22 08 85 07 00 c1 c2 21 |te-code |"......!|
|00002c10| 88 c3 c4 c5 8f 87 22 20 | 5b 74 63 3a 64 65 62 75 |......" |[tc:debu|
|00002c20| 67 2d 74 72 61 63 65 20 | 44 65 62 75 67 53 74 72 |g-trace |DebugStr|
|00002c30| 20 22 45 6d 61 63 73 20 | 54 50 4d 20 63 6f 64 65 | "Emacs |TPM code|
|00002c40| 20 67 6f 74 20 4e 4f 4e | 46 20 65 76 65 6e 74 22 | got NON|F event"|
|00002c50| 20 65 72 72 6d 73 67 20 | 28 62 79 74 65 2d 63 6f | errmsg |(byte-co|
|00002c60| 64 65 20 22 c1 20 88 c2 | c3 21 88 08 87 22 20 5b |de ". ..|.!..." [|
|00002c70| 6e 6f 45 72 72 20 62 65 | 65 70 20 6d 65 73 73 61 |noErr be|ep messa|
|00002c80| 67 65 20 22 4e 6f 20 6d | 6f 72 65 20 69 6e 73 74 |ge "No m|ore inst|
|00002c90| 61 6e 63 65 73 20 66 6f | 75 6e 64 22 5d 20 33 29 |ances fo|und"] 3)|
|00002ca0| 20 28 28 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 | ((error| (byte-c|
|00002cb0| 6f 64 65 20 22 08 85 07 | 00 c2 c3 21 88 09 87 22 |ode "...|...!..."|
|00002cc0| 20 5b 74 63 3a 64 65 62 | 75 67 2d 66 61 69 6c 75 | [tc:deb|ug-failu|
|00002cd0| 72 65 73 20 65 72 72 41 | 45 45 76 65 6e 74 4e 6f |res errA|EEventNo|
|00002ce0| 74 48 61 6e 64 6c 65 64 | 20 44 65 62 75 67 53 74 |tHandled| DebugSt|
|00002cf0| 72 20 22 43 6f 75 6c 64 | 6e 27 74 20 63 6f 6d 70 |r "Could|n't comp|
|00002d00| 6c 65 74 65 20 4e 4f 4e | 46 22 5d 20 32 29 29 29 |lete NON|F"] 2)))|
|00002d10| 5d 20 34 29 29 0a 0a 28 | 41 45 49 6e 73 74 61 6c |] 4))..(|AEInstal|
|00002d20| 6c 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 20 22 4b |lEventHa|ndler "K|
|00002d30| 41 48 4c 22 20 22 4f 50 | 52 4a 22 20 28 71 75 6f |AHL" "OP|RJ" (quo|
|00002d40| 74 65 20 74 63 3a 64 6f | 2d 6f 70 72 6a 2d 65 76 |te tc:do|-oprj-ev|
|00002d50| 65 6e 74 29 20 30 20 30 | 29 0a 0a 28 64 65 66 75 |ent) 0 0|)..(defu|
|00002d60| 6e 20 74 63 3a 64 6f 2d | 6f 70 72 6a 2d 65 76 65 |n tc:do-|oprj-eve|
|00002d70| 6e 74 20 28 65 76 65 6e | 74 20 72 65 70 6c 79 20 |nt (even|t reply |
|00002d80| 72 65 66 43 6f 6e 29 20 | 28 62 79 74 65 2d 63 6f |refCon) |(byte-co|
|00002d90| 64 65 20 22 08 85 07 00 | c2 c3 21 88 09 87 22 20 |de "....|..!..." |
|00002da0| 5b 74 63 3a 64 65 62 75 | 67 2d 74 72 61 63 65 20 |[tc:debu|g-trace |
|00002db0| 65 72 72 41 45 45 76 65 | 6e 74 4e 6f 74 48 61 6e |errAEEve|ntNotHan|
|00002dc0| 64 6c 65 64 20 44 65 62 | 75 67 53 74 72 20 22 45 |dled Deb|ugStr "E|
|00002dd0| 6d 61 63 73 20 54 50 4d | 20 63 6f 64 65 20 67 6f |macs TPM| code go|
|00002de0| 74 20 4f 50 52 4a 20 65 | 76 65 6e 74 22 5d 20 32 |t OPRJ e|vent"] 2|
|00002df0| 29 29 0a 0a 28 41 45 49 | 6e 73 74 61 6c 6c 45 76 |))..(AEI|nstallEv|
|00002e00| 65 6e 74 48 61 6e 64 6c | 65 72 20 22 4b 41 48 4c |entHandl|er "KAHL|
|00002e10| 22 20 22 43 50 52 4a 22 | 20 28 71 75 6f 74 65 20 |" "CPRJ"| (quote |
|00002e20| 74 63 3a 64 6f 2d 63 70 | 72 6a 2d 65 76 65 6e 74 |tc:do-cp|rj-event|
|00002e30| 29 20 30 20 30 29 0a 0a | 28 64 65 66 75 6e 20 74 |) 0 0)..|(defun t|
|00002e40| 63 3a 64 6f 2d 63 70 72 | 6a 2d 65 76 65 6e 74 20 |c:do-cpr|j-event |
|00002e50| 28 65 76 65 6e 74 20 72 | 65 70 6c 79 20 72 65 66 |(event r|eply ref|
|00002e60| 43 6f 6e 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |Con) (by|te-code |
|00002e70| 22 08 85 07 00 c1 c2 21 | 88 c3 c4 c5 8f 87 22 20 |"......!|......" |
|00002e80| 5b 74 63 3a 64 65 62 75 | 67 2d 74 72 61 63 65 20 |[tc:debu|g-trace |
|00002e90| 44 65 62 75 67 53 74 72 | 20 22 45 6d 61 63 73 20 |DebugStr| "Emacs |
|00002ea0| 54 50 4d 20 63 6f 64 65 | 20 67 6f 74 20 43 50 52 |TPM code| got CPR|
|00002eb0| 4a 20 65 76 65 6e 74 22 | 20 65 72 72 6d 73 67 20 |J event"| errmsg |
|00002ec0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 8d 87 |(byte-co|de "....|
|00002ed0| 22 20 5b 70 61 6e 69 63 | 20 28 62 79 74 65 2d 63 |" [panic| (byte-c|
|00002ee0| 6f 64 65 20 22 c7 c8 c9 | 5c 22 18 c7 c8 c9 5c 22 |ode "...|\"....\"|
|00002ef0| 19 c7 c8 c9 5c 22 1a ca | cb 0b 0c 0d 08 0a cc cd |....\"..|........|
|00002f00| 21 09 26 07 21 88 0e 06 | 2b 87 22 20 5b 72 65 74 |!.&.!...|+." [ret|
|00002f10| 75 72 6e 65 64 54 79 70 | 65 20 61 63 74 75 61 6c |urnedTyp|e actual|
|00002f20| 53 69 7a 65 20 79 65 73 | 2d 6e 6f 2d 61 73 6b 20 |Size yes|-no-ask |
|00002f30| 65 76 65 6e 74 20 6b 65 | 79 44 69 72 65 63 74 4f |event ke|yDirectO|
|00002f40| 62 6a 65 63 74 20 74 79 | 70 65 4c 6f 6e 67 49 6e |bject ty|peLongIn|
|00002f50| 74 65 67 65 72 20 6e 6f | 45 72 72 20 6d 61 6b 65 |teger no|Err make|
|00002f60| 2d 73 74 72 69 6e 67 20 | 34 20 30 20 74 68 72 6f |-string |4 0 thro|
|00002f70| 77 2d 65 72 72 20 41 45 | 47 65 74 50 61 72 61 6d |w-err AE|GetParam|
|00002f80| 50 74 72 20 63 3a 73 69 | 7a 65 6f 66 20 6c 6f 6e |Ptr c:si|zeof lon|
|00002f90| 67 5d 20 31 33 29 5d 20 | 32 29 20 28 28 65 72 72 |g] 13)] |2) ((err|
|00002fa0| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |or (byte|-code ".|
|00002fb0| 85 07 00 c2 c3 21 88 09 | 87 22 20 5b 74 63 3a 64 |.....!..|." [tc:d|
|00002fc0| 65 62 75 67 2d 66 61 69 | 6c 75 72 65 73 20 65 72 |ebug-fai|lures er|
|00002fd0| 72 41 45 45 76 65 6e 74 | 4e 6f 74 48 61 6e 64 6c |rAEEvent|NotHandl|
|00002fe0| 65 64 20 44 65 62 75 67 | 53 74 72 20 22 43 6f 75 |ed Debug|Str "Cou|
|00002ff0| 6c 64 6e 27 74 20 63 6f | 6d 70 6c 65 74 65 20 43 |ldn't co|mplete C|
|00003000| 50 52 4a 22 5d 20 32 29 | 29 29 5d 20 34 29 29 0a |PRJ"] 2)|))] 4)).|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00003090| 6c 65 2d 70 61 74 68 20 | 72 65 6e 61 6d 65 2d 72 |le-path |rename-r|
|000030a0| 65 67 65 78 70 2d 71 75 | 65 72 79 20 66 69 6c 65 |egexp-qu|ery file|
|000030b0| 0e 74 63 2d 72 65 63 65 | 69 76 65 2e 65 6c 63 74 |.tc-rece|ive.elct|
|000030c0| 02 00 00 00 64 45 4c 43 | 45 4d 41 43 00 00 00 00 |....dELC|EMAC....|
|000030d0| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 a9 9d 55 9a 00 00 | 2f 90 00 00 01 3c 20 60 |....U...|/....< `|
|00003100| 79 27 20 74 6f 20 25 73 | 20 6f 6e 65 20 6d 61 74 |y' to %s| one mat|
|00003110| 63 68 2c 20 44 45 4c 20 | 6f 72 20 60 6e 27 20 74 |ch, DEL |or `n' t|
|00003120| 6f 20 73 6b 69 70 20 74 | 6f 20 6e 65 78 74 2c 0a |o skip t|o next,.|
|00003130| 60 21 27 20 74 6f 20 25 | 73 20 61 6c 6c 20 72 65 |`!' to %|s all re|
|00003140| 6d 61 69 6e 69 6e 67 20 | 6d 61 74 63 68 65 73 20 |maining |matches |
|00003150| 77 69 74 68 20 6e 6f 20 | 6d 6f 72 65 20 71 75 65 |with no |more que|
|00003160| 73 74 69 6f 6e 73 2e 22 | 20 64 6f 77 6e 63 61 73 |stions."| downcas|
|00003170| 65 20 28 6c 61 6d 62 64 | 61 20 28 66 72 6f 6d 29 |e (lambd|a (from)|
|00003180| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00003190| 01 0a 00 00 00 0a 00 00 | 00 32 00 23 49 d8 06 fc |........|.2.#I...|
|000031a0| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|000031b0| bf f4 ff ff 00 00 00 00 | 00 27 ce 60 00 00 00 00 |........|.'.`....|
|000031c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+